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Certain measurements oof the electrical and mechanical 
properties of transiucers ars of importance to designers. 


These can be determined from accurate complex admittance and 


impedance measurements made throughout ths frequency range 
of interest. Manual collection of needed data is a 
time-consuming proc2ss that is prone tO error. The 


computerized system herein described substantially reduces 
the time requirement and produces more accurate output than 
carn be obtained utilizing manual nethods. In ag@dditicn £0 2 
general discussion or equivalent Cit Cis s and she 


instruments employed, ‘this raport includ2s samples of plots 


and calculated d2rameters £00 plezoelectric and 
mMagnetcstrictive transducers, the experinantal comparison 


with 
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Taditional manual methods and the program listing ‘for 
two versions of the system allowing varying amounts of 


operator options. 


AL POSTGRADUATE SCH 


O01 





Il. 


TABLE OF CONTENTS 


Pm PCDUCTION . . s« « «© eo eo et ltl tll lt 


PScHANTSMS OF TRANSDIJCTION .~. . « « « 


FURPOSE Of THIS STUDY ... +... -@ 


FORMAT OF THE REPORT .~« 2. « « « « « « 


Ae 

Be 

ee 

THEO RY 

A. 

B. USE 
Ue 
20 

ce 


GENE RAL e e & s s 2 e 3 @ e ® @ s ® 


OF COMPLEX IMPEDE NCE/ADMITIANCE 
Geese onance cicctle . . « « « e« 
Comporsnt Respo9nseS5 . « « « «@ « 
GuMpPU@ie@ance . .« « « © « s « « 


Dem eeanc= 4. +. « « © « «© « « 


EVALUATION OF TRANSDJCER PARAMETERS 


Te 


@Wlemrey "Factor = J. « « « « « « 


Elestramechanical coupling coefficient 


Pucemen Induiercancsiew= Lo, - - « - 


Gammercanc= Ratis = "R® . « « »« 


UW 


12 


te 


13 


1 


17 


17 


ee 


ae 


ZS 


28 


29 


30 


33 


33 


33 


34 


34 


a5 


32 





PEt . 


ry « 


8. 


9. 


Beem > Of Miemeat . . « « © « « 


Mmemee= tS . .« « «© «§ «© wc ew ee 


OD. EPFICIENCY e e @ e a e e @ e e ad e 


Be SUMM ARY @ . @ s e @ e e e e e e £ 


ADAPTATION TO A COMPUTERIZED SYSTEM. 


Pome BOURPOENT SEPSUP . - «© © © « #© @ 


1. 


Ze 


Hewlett-Packard HP-35 Computer 


Synthesizer/Function Generator 


Dranetz Complex [mpedance--Admi 


Meter e a e e @ e@ e @ 3 e e e 
Data AcSquisition/Control Unit 
Power Amplifier .....ee. 


General DiscusSirdn .«. .« « « « e 


B. DISCUSSION” OF THE PRISRAM . .««- 


Rem Sea cGCl 2 «© 6 « « « « « « « 
Daeteecalliestion « « « « =» « « 
Weea Wane puiatior . « « « « « 
demeiemtermc Gomol Ng . . « 


Del@ereetc CoWeteng . . « « 


TBool ANS EVALOATIONn . «. « «© © «© © «© « 


Ree TESTING e@ e @ * es es e e . e td] es es 


Nie 


De 


MCh Geis os 5 cs 6 @* 6 «© e 


Gomes) BONS <« « « « «= © e© © 


WW 


36 


36 


36 


4Q 


44 


G4 


45 


46 


46 


Ug 


4g 


4g 


50 


25 


60 


60 


61 


34 


84 


B84 


64 








B. EVALUATION .. 


C. CONCLUSIONS . 


De. RECOMMENDATIONS FOR FURTHER IMPROVEMENTS 


APPENDIX A . « « © «© « « 


LPST OF REFERENCES ... 


BIBLIOGRAPHY .« « « «© « « 


PRITIAL DISTRIBUTION LIST 


Pa eal 


Si lrais 


~ 130 








I. 


bese “OF TaSpces 


COMPARATIVE SYMBOLOGY ... « 





a 
a lie 


veo. 


2.4. 
2.5. 
2.6. 
Zel. 
2. o 
2.96 


3.1. 
8. Z. 
3.3. 


3.8. 


eos 


Be Os 


EPsl OF FISURES 


Tyomea Corcudits and Icansformazions ... 
(a). Modifisi Van Dyk or Mason circuit 


(Dy. Becec Weamedmieer Circuit. ..+<«..« -« 


Equivalent Circuit for a Magnetically Coupled 


Woe 6g lll tll tl tll tll tll ll 
cOmplex Iap2edance Diagram ....«.e-«.e « 
Gomevee sam@uttance Diagram .....«-«4«. 
Mocmemet Limp>@anze Dlagjram . ....e e« « « 
Moteondl AGEL ttance Diagram .....«« « 
yemeeeent elreurt DLAJTAmM . . ee et ew ew le 
Resistance and Reactans|s Plotted Versus 
POGCMECHMey «4 6 3 «© « s «© « « © ow «© © we 
conductance and Susceptance Plott2i Versus 
Premmerey « © « « s «© © « © « © © © « « «@ 
queppereme S2f=D . . 1 tw ltl ltl tll tl tll 
Pevewe Crm@st @5c tae PEOJTAM . « « « « «© # « 
Con@uctwance Spectrum for a Piezoelectric 
erence r 5 6 6 « ee te els 


Susceptance Spectrum for a Piezoelectric 
LR LEG Coc 
Thee ELectrical Admittance Plot for a 
Poem CiMO@G@eriLo TEansducsr . . .« « « s © « « 
Resistance Spectrum for 2 Piezoelectric 
eee ss 5 le sl ltl ltl tll tl tl tll lhl ls 
Reactance Spectrum for a Piezoeiectric 

$0 Fle Ge gt a s 
Bhect@ical [nput Impedance Plot for a 


Pele Mec © Tramiscdiicen € . .« « «© © we ew 


Motional Imp2dance Plot for a Piezoelectric 


Transducec e e e e e e e ® @ e s e e @ ® e 


MOovtromal Ad@attance Plot for a Piazwcelbectric 


BeerescnGer . <« <« « « « «© «© © «© © «© © e «© e 


19 


20 


21 


ZS 


24 


26 


as 


28 


ge 


30 


47 


54 


63 


64 


66 


67 


68 


ae, 


70 








oe. 


Conductance Spectrum for a Piezoelactric 

Co Sel 
Susceptance Spectrum for a Piezoelectric 
Pome E 5 « 6 «6 «© «© ee te ee et lel tl hl 
Input Blectrical Admittance Plot for a 

Poseme electrics Transducer . .« « « «= «© « «© « « 
Motional Adnittance Plot for a Piezoelectric 
og Rl 
Resistance Spectrum for 2 Magnetostrictive 
MORIeTCMMIG@C I ss 5 6 « 0 0 6 6 0 8 ew elt lt 
Reactance Spectrum for a Magnéetostrictive 
Dele Meee se +6 © © © «© « © « « ¢ » « 
Input Electrical Imp2daince Plot for a 


Magne tGs tliat ive Transiucer . « «© © «© « « « 


Motional Impedance Plot for a Magnetcstrictive 


DaSCMIEeIS «6 = © es ce 6 © © «© «© © © @ 6 @ 
Resistance Soectrum for a Magnetostrictive 
WOOGIE cis 6 «© « « «© © « © «@ © © « & «@ 
Reactance Spectrum for a Magnetostrictive 
MOISE 2 wt ltl tll ltl tll ltl tl thle ltl tl lll 
Input Electrical I[mpedaace Plot for a 


Rogmetestracct ive Transiucer . « « « « «© = »& 


Motional Impedance Plot for a Magnetrostrictiv 


femeSiGe Tc «os « 6 « « «© © © © © © «© © © e 


Sawep B weempucer OUEpUcE . »« « s. =» 6 © © © © e e 


10 


() 


71 


igs 


73 


74 


TS 


76 


V7 


78 


TS 


a0 





ACKNOWLEDSEMENTS 


I would like to aztknowledge the support and assistance 
provided by Dr. Steav2i L. Garrett, my thesis advisor. I am 
extremely grateful for his halp, information and continued 
interest in this project and for being a mainstay throughout 
the months of researth andi design. Also, I would like to 
acknowledge the assistance provided by Professor 9. B. 
Wilson, Jr., whose shaced knowledge of the theory and of 
transducers made this a ful Liiaeaig > saga worthwhile 
experience. I wish to extend My special thanks to 
Lieutenant Donald V. Conte, USN. His cooperation sand 
assistance with the operation and progranmning of the 4P-85 
and his encouragement of an adaptation of parts of his 


thesis program prov2zi large tine savers and prevented 


iy 


G@@placation of effort. I appreciate the support sf the 
Naval Postgraduate Sthool Foundation Research Program which 
provided the funds t> purchase the computer and computer 
controllable instrumentation used in *his project. I swash 
Tomeonamk Liemtenent coffmandsr John Conner, Jr. ‘for his Welp 
and friendship. My extra sp2cial thanks to R.T. who 

Qrigumea | tookwtims Sut t5 play, get fresh air, ind relax 


thereby helping me through th2 cough times. 


11 





Ee E@Roouction 


Transduction is iafined in an extremely general sense as 


any conversion of o12 form of energy ints another. The 
devices responsible for this conversion, Hg either 
Girection, are transiicers. Foc this author, the interest 


is the conversion of slectricity into sound and vice versa. 


Commonly, a transdus2r that converts electrical energy inte 


sound is called a projector, loudspsaker, SOurECeS “Or 
transmitter. Thos? Serving the reverse function are 
commonly called hydrophones, microphones, or receivers. 


Seme types of transduters are rceversible and are capable of 
eiiing @ither role. This study is restricted to the 


analysis of reversibl2 transduce2rs. 


A. MECHANISMS OF TRAN SDUCTION 

There are two basic types 2f mechanisms commonly used in 
reversible electroasoustic transducers desianed FOr 
underwater sound, one involving interaction bet ween 
mechanical motions ind forces and electrostatic fields and 
the other between néeshanical notions and forces and nagnetic 
Eel dsn Both typ2s are anenable ts analysis using 


equivalent electrical circuits: bu, dué to the basic 
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differences in conventions used te describe forces in 
electric and in magnetic fields, sche details are different. 
Magnetically couplei transducers of the moving coil type 
have the diaphram attached to a wire coil suspended ina 
Magnetic field. It is the interaction of the current in the 
coil and the magnetis field that induces 2 force on the coil 
and causes the diaphram to move and radiate an acoustic 
wave { Ref. 1]. These Classifications may be further 
subdivided based on the motor mechanisns involved (i.e. 
electrodynamic, electrostatic, magnetic, aagnetostrictive, 
and piezoelectric) [R2f. 2). The classification systems for 
transducers vary depending upon the analysis beirg done. 
Descriptions of varidis ciassifications are presented by the 


previous references as weil 25 by Heaslip (Ref. 3], and 


Sherman [Ref. 4]. 


Ea PURPOSE OF THIS s5rUDY 


7) 


All electroacoustic transducers may be considered 4 
being composed of electrical elements so that the analysis 


Or the transducer 1s greatly simplified if an equivaient 


4 


he ecrane. | seurc Wit used. 


}- 
Ul 


While the most common transducers currently in us@ in 


underwater sound 2r2 made of piezoelectric materials, <he 


Aes 





ain ©: this study is t2 provide a generalized, 


semiautomated means of obtaining meaniogful transducer 
measurements on any type of transducer with the operator 
having minimal knowlaige of the device. 

The equipment s2t-up utilizes basic devices 2.9. 
voltmeter, sweep oscillator, Dranetz impedance meécer, 
amplifier) interfacei +9, ani controlled by, a desk-top 
computer. This iaterfacing orovides more precise data 
acquisition than can be obtained from Manual plots 
interpreted by an operator. The time saving factor is 2 
Major motivation for this choics>. 

Certain measur2m2zats of th? electrical and mechanical 


Mpcrtancs to designers. 


re] 


ft. 


properties of the transducer ars of 
In some cases, it is desireable to have the resonant 
frequency fall within a particular range. More likely, 
waere wail be concern for a high electromeshanical coupling 
coefficient. Efficisicy may be the major concern or perhaps 
it is desired to hav2 high losses and, therefore, a low 
mechanical quality factor with consequent "flatness" of 
response { Ref. 5]. 

Direct measurement of these values is net aiways 


possible. However, many of the electrical cemponent values 
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needed to calculate nechanical parameters can be readily 
obtained from properly annotatzd impedance and admittance 
Peots £05 a particular transduc2r. 

Currently, ther= are automated systems design2i +0 
analyze fransducers, such as the WOQM-12 [Ref. 6]. Few are 
Smail enough to be raadily transported to the transducer as 


is this system. 


C. FORMAT OF THE REPORT 

The basic physical and electrical theory usei in 
preparation of this report is presentei in Chapter II. 
While more thcerough analyses of transducers and equivalent 
circuits may be found in some of the references, only data 
pertinent to the neasurements »btained by this system are 
presented. 

Chapter IIIT explains the interfacing between various 
components of the equipment set-up and the computer. The 
operator/computer Lnteractisa is 2lso addressed. 
Representative sampl2s of computer output are included. 

Chapter IV briefly describes the testing and evaluation 
or the system and prodjran. Th? results and conclusions are 


presented here. 





The computer programs written in BASIC computer language 


are included in Appeniix A. 





ni 


ir 
ts) 
T.3) 
1O 
i0 
Ir 


Since much of *th2 physics and enginesring involved in 
discussions Ore transducers LS common to both 
electric-coupled andi magnetic-coupled transducers, this 
report will make a general approach and POlne 4oue 
differences where th2y occur. Pa Dew, tee one send of shes 
chapter, contains a listing of symbols used in this report 
and refers to symbology us2ad in some of the references 


cited. 


Ae. GENERAL 
The approach asually tak2n in electroacoustic analysis 
is to use an eiectric circuit ¢2> model «he transducer. ie 


Simplest form one may us2® a two-port network with one port 


(Vy 


representing the elactrical tarminals and the other <¢h 
mechanical terminals. Analogs for forc? and speed may be 
voltage and current or vice versa depending on he tyve of 
transducer. 

The canonical equations describing the behavior of the 


two port *=ransducer may b2 written as: 


Yaa5°I* Teh 0 (2. 1) 


and 


Fe 





pep 2r + 2,0 ( 22) 


where V and I are the voltage and current at the electrical 
Bert and F and U are the force and velocity at the 


Meeherscal port. To, is a transiuction coafficisnt cr 


(vp 
}-- 
rey) 
ct 
f-> 
J 
\Q 


the electromotive force at the electrical port to the 
velocity in the mechanical neat, 2a _caaees a UlanSsdue ion 
coefficient that relates th2 force developed at the 
mechanical port of a two-port natwork to the current in the 
€lectrical mesh (Ref. 8]. @is the transformation factor 
and may be defined as 6=Ty,,/%. The canonical equations for 
a maqnetically coupled transduser of the moving coil type 


eae $ 


F= -B-1-I + ZU ( 233) 


¥=Z,;1 + B-l-U Cy 


where 3 is the magnetic field and 1 is the iength of the 
Sacre Bn the coil. (Semees This chelce is maiid or 


electrodynamic transiucers (moving coil) as written using 


iD 
UJ 
(ip 
ct 
O 
th 


5: aT Magnetostrictive traasducers obey the san 


equations but Tepe B:1.) 
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Por #iectromechanical coupling, Figure 2.1 shows typical 


circuits and transformations “Ref. 7]. 





Pag. 21. Typical circuits and Transforsations 


rh 


ig the vicinity of resonanc>, which is of concern hee, 
me NGson Circuit Or Moditied Vao Dyke circuit is valzd. It 


is also valid for low frequency values which wiil also be 


needed for some calculations “Ref. 8]. Dns Gskenac» Ss 
meee en Paguse 2.2 where L,, 8. - and Cy, neprasert 
mechanical values. 29 «67S £83 clamped or blocked or sihunt 


capacitance. 
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(a). Modified Van Dyke or Mason circuit (b). 


Figure 2.2. 
Basic Transducer Circuit. 


Kinsler, and others (Ref. 1], define the following 


measurable mechanical and electrical impedances of a system: 


Blocked electrical impedaace (ohms) =Z25=V/TIj_6 (2.5) 


Free electrical impedanse (ohms) =2 =V/TIE 6 (2.6) 
—_ 29 


Open circuit methanical iupsdance (N-S/m) =Zm=F/UI,_, 
(2.7) 





Short circuit mechanical impedance (N-s/m) = mF /U lyig 
(2.8) 


Magnetically coupled transducers may be represented by 
mee Garcuzt of Figucs 2.3, where , is a transforgation 


factor. Pm= B:-1 for moving coil transducers [Ref. 2]. 


Figure 2.3. Equivalent Circuit for a Magnetically Coupled 


Transduc2tr. 


Important properties 9f the transducer may be found by 


m 


studying the electrical impsiance of th system as a 
memretion of driving frequency. Vie Ginioeaded ariveng polmmet 


electrical impedance may be dstermined from the canonical 


equations (2.1-2.4) 2ad is given by 


y/o * (fom Ime/ Sn) (2.9) 


0 
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Similarly, thee ROB t circuit mechanical driving point 


impedance is given by 


Zon? Ulycg =4m * (“Tem tme! 720 (2. 10) 


The electrical impedance is influenced by the motion of the 
coupled mechanical system, as indicated by the second tern 
on the right hand siie. This term is referred to as the 


motional impedance, and defined by Hunt [Ref. 2], as 


Zmot = (~TemTme! (172m) (2259.9) 


Stgzilarly, the mechanical driving point impedance is 


influenced by the elactrical load. 


Pee Uos GF GOUPLEX INPEDANCE/ADYITTANCE PLOTS 
1. The Resonances Cirsle 

Graphical displays of inpedance aad admittance data 
can be extremely us#ful in th? analysis of a transducer. 
When properiy scaled and annotated, quantitative results nay 
be obtained from the jiiagrams. senerally, in the vicinity 
or resonance, the element is regarded as having a single 
degree of ‘freedom and the locus of points of the comolex 
impedance is a circls in the naighborhooi of the resonance 
frequency { Ref. 7], f Ret. 9). F2qure 24 @md Fig@rs 2.5 


are typical resonanc= circle disgrams where, in rigure 2.4, 


AE 





mae “electrical reactance is plotted as a function of 


electrical resistance with frequency as a 
parameter ({ Ref. 8]. FU and £5 are the frequencies of the 
half power points and £8 is the resonance frequency. Dashed 


lines show the sam2 transducer ander load conditions. 





ae 
f8 

| 

| 

s 

} 

Fig. 2.4. Complex [up2dance Diagram 

(Note: ReactancS 1ay be antirely negative for an 


electrically coupled transducer). 
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Fig. 2.5. Complex Aimittance Diagram 


mueregure 2.5, £2 apd £3 equate to the frequencies 
Gee me Malf power points. FO 1s the frequency of Tesonamee:. 


The dashed line would be ths same ideal transducer +*23s 


Qs 


S 


on | 


under load conditions. (Note: Susceptance may be antirely 
negative for a magnetically coupled transducer.) 
Motional imp2dance components may be obtained uSing 


the following formula:: 


24 





mot ~ R 


- (2312) 
Xmot =Xp + july (2.293) 
eee ee C= Ree SCO Xt (2.14) 
The motional admittanse componesits are given by: 
rot = Gp - (17R,) (2 215) 
Bmut = Bp a jw Co (25 16) 


The frequency of maximum pow2r output at constant voltage 
input is called the mechanical rczsonanc2 and is represented 
ieieeaqurs 2.6 by £8 [Refs 9]. 


In the motional admittaace diagran, 


Fe GuGes2..7, Geo 
is the frequency of naximum coiaductance and 


resonance. az 
apd £3 ame the half power points. 


2e Component Res2ons2 


Ww" 


Impedance m2asuraments are made at the 
terminals of zhe transduce2r. 


The behavior of #he 


a5 








Fig. 2.6. Motional [Impedance Diagran 


imaginary components of the complex impedance may be 


observed as the frequency Spectrum is swept at a 
surficiently Slow rate so that the system is 
quasi-stead y-state. When the nechanical system is clanped 


so that it cannot mov2, the bloskead electrical inpedance ma 


Me 


be measured and used to calculat? notional impedance. Since 
it is difficult to aisquately clamp a devics2 over the antire 
frequency spectrun, values may be obtained far above and 


below resonance and tie intezrnediazte values inferred. This 
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mot r2 


re 
mot 


rh 
e) 


Pig. 2.7. Motional Admittance Diagran 


is especially important for th? reactance and susceptance 
curves whose clamp2d values vary more drastically with 
Erequency than do the real components sf admittancs or 
impedance. 

The maximum value of addtional impedance will equate 
to the mechanical r2sistanc2 and is the diameter of the 
Cart cig. This Values will be of importance in calculating the 


efficiency of the system. 


mag 





Plots of various Migs SlLecte cca ld parameters 
(conductance (Gp) andi susceptance (BR) oF resistance (Rp) 
and reactance (X p ) versus frequency) can previde all 
of the information ascessary t> obtain the electrical and 
mechanical quality factors for the systen. These values 
indicate the sharpness of th2 resonance. 

ae Impedanc2 

The circult of Figur2 2.8 is useful for analysis 


of the behavior in th2 vicinity of resonance. 





Fig. 2.8. Equivalent Circuit Diagran 


Rwilot of the inmpmat slectrical iapedance components yersus 


frequency will resemble Figur2 2.9. 





oB SO 





—_ 


Pig. 2.9. Resistanc2 and Reactance Plotted Versus Frequency 


De Admittance 


The motional admittance equations ars 


y =¢ + 42 “ l Rmot—j*mot_ 
mot ~— 7mot mot - ; - 
Rmot +)%mot R psi j<mot 
Rnot : a Xmot 
= na. SO (2.18) 
Rmot *Xmot Rmut + Xmot 


oS, 





Plots of conductanc2 and susciptance versus freguency for 
Figure 2.8 will resenble Figure 2.10. The frequencies where 
the susceptance (B) is zero sorrespond to the electrical 


resonance and antiresonance freyuencies. 


no wysB 





Figure 2.10. Conductance and Susceptance Plotted Versus 


Frequency 


C. EVALUATION OF TRANSDUCER PARAMETERS 
This system is dasigned t> obtain useful information on 


Gevices used in transmitting ani receiving in water. As 
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Such, it is first necessary t> obtain data in an unloaded 
BacmMeact2On in order t> be able to separate the effects of 
acoustic loading. For transiucers designed for us2 in 
water, aixc normally provides an adequate medium for 
evaluation cr the acousticaliy unloaded properties. Placing 
the transducer in water means the two-port network will now 
refiect the sum of the mechanisal and the load impedances. 


Then, according to Hunt (Ref. 2], 
Zp = Zt 2) = (Rm tRy) + F(X + XI (2.19) 


or 


met 2) = (Bit Bi) {1 + j- 2-0-5) (2. 20) 


where pis a frequency pacameter-- (p=.5( (W/u,) - (Wo/w)) and Q 
is the quality factor measur2i for the resonance Lien 
electrical Or mechanical d=pending on the typs ce 
measurements). 

Data obtainable from adnittance measurements will 
provide needed valies pe a determining the motional 
admittance circle. The haximam value of conductances will 
SCceolltmet thetrequency of elecféheoal resenance. The que lity 
factor can be determined from the frequencies at which the 


Gemawetance assumes halt the da4itfference of its paxiaue 
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pame ama its blocked value (i.e. 9 = £ /(fy -f;). These 
frequencies will also coincid2 with the frequencies (f2 and 
£3) of the local maximum and minimum susceaptance values near 
resonance. Blockei capacitaace may be calculated from 
measurements of susceptance far above and/or below 
resonance. POneAn “Clecteicaily co@pWed transdwcer with 
small dielectric losses, valiil measurements of Cg may bs 
made very far below resonanc?. For magnetic coupling, 
measurements must be taken far above and far below resonance 
and the values betw22n interpolated linearly between these 
two. 


Impedance data will provide the frequency of 


my 


ee 


ry) 


2) 


(D 


antiresonance. The frequencies of the nalf values 


{2s 


cke 


O 


difference between the maximum resistance and the bl 
resistance wiil correspond to t22 maximum and minimum values 
Se GeectanGe and allow for calculation of a mechanical 
quality ivdeu OL. Blocked sapacitancea Or inductance 
{depending on the typ2 of transiucer) nay be calculated ‘from 
reactance data obtained far above and/or below r2sonanc:. 
The following paragraphs briefly describe tha definicion 


era Calculation Of various constants. 


Se 





This factor indicates th2 sharpness of resonanc:. 


frequency of max. Gor R ~ f(cesonance) 


freq. difference Gay min. £ (upper) -£ (lower) 
and max. B Or X (2.21) 


2. Electromechanical coupling coefficient = K2 (eff) 


This coeffisient iniicates how Crone Ly the 


electrical and mechanical meshes are coupled [Ref. 2]. 


K2 (eff) = 1-(f£8/f0)2 For electronagnetic coupling 
(2.522) 
and 
K2 (eff) = 1-(f9/7£8)2e EOt cHleetrostatic coupling 
(2323) 


where £8 is used t9 indicats the frequency of maxinuno 
resistance and £9 indicates the frequency of naxinum 


een cuctance. 


Tres temm is th2= patios of «the Stored mech@n ical 


energy co the total 2nergy stored in the device [Ref. 1], 


[Ref. 5]. 
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K2=> = see ee (2. 24) 


fms 2S the blocked capacitance of the system. 
There is no simpl2 n2thod of measuring this quantity (with 
the possible exception of Lastruments designed for 4a 
specific frequency). Measucaments must be made at a 
frequency far removed from frequencies of mechanical 
resonance in ordsc to ninimize the effects of 
electromeshanical cdapling. ILs2 the capacitance ratio 
(C,/C9) 1S Gpeeater than Elity, the inaccuracy should be 


minimal and may be considered n3agligible. 


py ial where @ << @ (2.25) 


CE = Ko 2b 


Teor 


Xo 

Ro and Xp may be closely approxinated by obtaining 
data far below and above resonance and interpolating between 
Since there iS a positive frequency dependence. However, 
for many practical pacposes, (amet £Or Felectrically cowpled 


Peercouveces), date May He obtained tar below rescnance whick 
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provides a reasonabl2 approxination to the actual valué 
throughout the frequency range of interest. These values 
are assumed +0 repr2sent those which would be measured if 
the mechanical parts of the system were blocked or clamped 
to prevent motion. 
6. Blocked Industanc? = Le 

Mii.é€ 25 the inductanss of th2 blocked systen 

(usually with magnetics ccupling) and is obtainable from data 


collected far below and above r2sonance. 


X(interpola ted) 
18 SS wee ewe we wee ow eo (2 2926) 


7. Capacitance 


yp 
my 
teu 
ous 

4 
jO 
yu 
| <= 
{20 
j@- 


iieas Dew che ratio of "Th>= "blocked capacitance (C,) to 


Co PI (1-K2) where K2 is the 
io) -—-— aoe ae Se = See c EOlnls ng 
em 8 x2 Goeazilcien 
(22) 
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8. Figure of fer 


i 


£ 

The figure 29f marit is little aentioned in the 
references probably because it is an arbitrary formula 
depending upon a designer's sriteria. Miller (Ref. 5], 
Seeeeene K“O,. ae on possibility and utilization of the 
Sempling coefficient 21s another. No specific calculation of 
this value is doné i2 this repoct, leaving it to the user to 
insert as desired. 

Impé€dance or admittanc> circles are transformed to 
motional diagrams by subtracting blocked values or blocked 
values multiplied by angulac frequency as discussed in 
section B.1 above. The dlamst2rs of the resulting circles 
Wili provide needed values for sfficiency calculations. Dep 
pea Oe signaty the diameters of the motional circle for the 


transducer in water and in air, respectively. 


Do Gee Ticil BMY 


th 


Tae feverali efficiency of a ttansSducer is the ratio o 
the power deliversd to an external load connected at the 
output terminals to the total power at the input. 

At resonance, this cin be easily calculated from known 
vaiues. For an :a3lectrically coupled transducer, the 
efficiency is given by: 
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aes ( 2eg2'8) 


where D4 and Dy ace the diametecs of the motional admittance 
circles and where 3 is the condictance at resonance. 
Similarly, the efficiency at resonance fOr a 


Magnetically coupled transducer is given by: 


ees Ow) _ 
R ss D4 


(2.29) 
where these are diamsters of th2 motional impedance circles 
and R is the resistance at resonance [Ref. 10]. 

The mechanical power utilization factor is part of the 
overall efficiency. It is given by R, 7 (R, +8) which can be 
expressed in terms of loaied ani unlcaded values of Q 9rf by 


the diameters of circles. 


R D, ~- D 0 ean,” 
a Se ee ee eS (2.30) 
Rie + Ry D4 Qy 

(Note: All values should b2 taken from sither é@amittance 


data or impedance datz but should not be nixed.) 
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Once the efficiency at resonance is determined, 
utilization of the impedance data of a magnetically coupled 


transducer allows for calculation of the lagging phase angie 


(8) - 


P= O55 WECCOs ((Rres ~Rg) / Me) (2 23m) 


The frequency paranzter for maximum efficiency may be 


calculated as 


Py = (OySin (2°B)) /(4-R,- dol (2.32) 


and from the eéarilar relationship between p and the 
frequency ratios, tha frequency for maximun efficiency for a 


magnetically coupled transducer nay be calculated. 


E = £0 (2-p + (p2+1) 2) (2.33) 


The frequency of maximun 2fficiency nay nox~ coincide 
Mich erther the resiomant Er2guwency or the frequency cf 
maximum admittance. For ths nagnetostrictive transducer, 
this frequency of maximum efficiency is usually greater “than 


that at resonance. 
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A development oy Camp Ref. 8], shows that a 


magnetostrictive transducer may produce adore acoustic power 
at the resonant frayuency ev22 though efficiency may be 
iess. Normally, the frequency for optinum acoustic power 
Will fall between the mechanical resonance frequency and the 
frequency of optimum efficiency. Mas is due to eddy 


current losses and magnetic hysteresis. 


+4 
ip 


Since transduction losses ac2 low, maximum power output 
for piezoelectric iavices is limited mainly by voltage 
ivaits. The optinua operating frequency is accepted as the 
frequency of maximum admittance (|Ref. 8]. 

If one assumes that the transducer has a high Q (Sharp 
resonance) and that the blosksd resistance is constant 
throughout the frequency rang2 for the impedance circls, 


then the potential erficisncy may be expressed as 


Pot. Eff. = ---7a%+----.-2min i ___. (2.34) 


The potential efficiency represents the maxinum efficiency 
available for the most favorabl2 loading sonditions. Tas 


equetion deletes tha requirement for data from a loadea 
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condition but requires the air motional inpedance loop to 
very closely approxinate a circle {Ref. 9}. aaga OO aais 
used here implies values greater than thirty. Le ene amr 
motional impedance loop is not approximately circular and/or 


the Q is low, then, from refers1ics2 2, 


Pome SET. = ---~ 


(1 * Re cos268,¥v - (1-De stnz6)¥ 


(2.35) 


Ee SUMMARY 

There is helpful information to be obtained from both 
impedance and admittance dat:3. Some transducers more 
eeadily reveal properties throagh one type of diagram chan 
another. Normally, adibceaste= data 1S collected for 
electrically coupled syst2ms, while impedance data is better 
Bon sewaying magnetically coupl2i systems (Ref. 2]. Sue to 
the ease of obtaining data with the syst2m proposed here, 


both sets o= data ani diagrams nay be rapiijily obtained. 
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III. ADAPTATION TO A 2IMPUTERTZED sysreu 


In-phase and out-of-phase somponents of the admittance 
or impedance are neeiad in th2 analysis of 2 transducer. An 
initial attempt was nade +29 use a lock-in analyzer, but 


ultimately a Dranetz impedances neter was used. 


hoe EQUEPHUENT SET-UP 


aad 


Data needed for the Saseculation. of properties. of 
transducers may be obtained using a lock-in analyzer. The 
Magnitude and phase or in-phase and quadrature components 
will] indicate resonances aaj provide the necessary 
information. 

The initial set-up utilized she Princeton Applied 
Research Company Model 5204 Loci = jae DS 4ayZe ss Phase 
information would hav2 allowed for desired calculations. In 
experimentation, tha circuit required for obtaining valid 
phase information betame too couplex to be practical. The 
Weck-in analyzer is designed +> operate in the 1 Hz *9 100 

} 
mie Geeguency ctang= although it was dstermined £5 be 
accurate at higher fr2quenciss. At low frequencies, there 


7s a low scurce cresistance ani the signal to nois? ratio 
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became too small to provide 43 refe2rence. ites ucons lauded 
that complex impedante measur2neants would be another means 
of getting the necessary data. 

As briefly mentioned in th2 introduction, there are many 
methods for obtaining impedanc> information. Since. this 
author desired a portable system usabl2 for underwater 
transducers, a bridg2 network s22med reasonable. 

The set-up used to design this system is shown in Pigure 
3.1. The Hewlett-Packard HP-35 computer directs the 
peripherals for th2 data taking. The printer and plotter 
are non-essential to the syst2m and were used to provide 
larger format graphics and printout than are available with 


the built in thermal printer provided with the HP-85. 


1. Hewlett-Packard HP-85 Computer 
The HP-85 is an Szghnt bit microcomputer that 
utilizes BASIC comput2r languags. It has a 127 millineter 
diagonal black and white 2lectromagnetic-daflection CRT. A 


32 Gharacter per line thermal printer/plotter is part of the 
Titel a The computer has 16K bytes of read/write memory of 
which 14,579 are available «2 <=he operator. For w2hds 
pregram a memory moiule is needed to expand the memory to 


32K bytes. Programs or data may be stored on, or read fron, 








Magnetic tape cartriiges. T>2 interface with peripheral 
equipment, an I/O ROM and an iiterface card were added to 
provide HP-IB (ITE& E-48 8) instrumentation inter face 
capabilities. 
2. Synthesizer/Function 
The Hewlett-Packard M5da1l 3325A Synthesizer/Function 
Generator can produc2 five different continuous waveforms. 
For this application 2 sine wav2 was desired for which «his 
Smstcument has a frequency ranje of 1 microhertz to 20 
megahertz. Frequency may be specified with up to eleven 
eres Of LTesolution. Output anplitude is 1 millivolt to 10 
volts peak-to-peak into a fifty ohm load. This smodvel is 
fully programmable through the rear panel Hewlett-Packard 
Interface Bus (HP-I8). 
3. Deanetz Complex Impedansa-~Admittance Meter 
The Model 100C Complex Impedance--Admittance Meter 
(CIAM-100C) is a transSistoriz2d instrument that mneasures 
vector impedance, vszstor admittance, VSstor amplituds and 
phase. Et covers a2 treqgwency cange frea 2100 Hz to 200 KHz 


ap three renges of J). 1 to 2 KHZ, 1 to 20,482 end 10-0 


7) 


ZOORHZ. For measuring impedance a constant current i 


produced in the unknown impedaicé. The amplitude of the 
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current is set by th2 range switch. The voltage developed 
across the unknown impedance is amplifiei and fed +9 two 
resolvers. FOr measuring admittance, a constant veltage is 
applied to the unknown. The currant through the unknown is 
measured by means of voltage developed across a small 
range~selected resistor placed in series wit the unknown. 


The resolver outputs are proportional t29 conductance and 


susceptance of the aaknown. [The claimed accuracy of the 
instrument is. plus or minus two percent full scale 
amplitude. The Dranetz meter requires an inout signal 
Meottage of 3 Vrms. In takiny neasuremants on an unknown 


transducer, initially the fraguancy of interest may not be 
known as weli as th? appropriate scale settings for the 
meter. Measurements made on the Dranetz meter using 2 
variable resistance box and voltmeters indicate linearicy 
throughout the range settings. However, 1£ is necessary +o 
insure measurements io not caus either neater range to be 
exceeded. Tha limit indicator Lights are activated when the 
unknown impedance or admittans2 is substantially greater 
taen th® full scale setting. ihen the occies, an inte saad 


relay shunts the meters and the DOT output terminals to zero. 


48 








G. Data AcquisitLon/control J 
The Hewl2att-Packard Model 3497A Data 
Acquisition/Control Unit is us3?d here as a voltmeter anda 
scanner to measure the DC output voltage proportional to <he 
deflection of the meters of th Dranevtz. The instrument 
measures and displays voltage values to five and one nalt 
digits. It is internally triggered by software command 
during the data taking but takes the next reading as soon as 
the first is complet3i for obtaining averages. 
5. Power Amplifier 
This instrument is not 2ssential tos the operation of 
the system. The Dranetz meter is designed to accept direct 
ac voltage input; however, the oparticula> meter used 
exhibited more stability when th2 amplifier was included in 
the set-up. The amplifier had unity gain and was only used 


to lower the effective output impedance of the ftrequ 


(() 


ncy 
Synthesizer from fifty ohms to two milliohas. 
6. General Discussion 
This equipment set-up is suitable for an initial 
system. A system designed f3r regular and rtcutins use 
should include a different impedance measuring system than 


the Dranetz. Becaus2 of the d2sign featur2 of the Dranetz, 
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a great deal of operator interface is required to change the 
various different scale and rairge factors which cannot be 
set directly by th2 computer. It is too easy for an 
operator to miss changing 92282 setting or to overlap 
frequency range scal2S in the spectrum sweep and, thereby, 
obtain erroneous data. Also, the scale factors mus* be 
manually entered prior to the computer doing any cal- 
culations. The Dran2tz also hai annoying features, such as 
@rift of the zero, 2xcessive noise on low impedance ranges, 


aa be QWtput at Tull scale dstlsction of 0.8 - 0.95 volts. 


Be. DISCUSSION OF THE PROSRAM 

Thieme S8> 15 the controlliag unit directing the other 
instruments to take or send dati as needed. Memory storage 
is handled by this microcomputer. 

The goai was +9 i3Sign a program than would minimize the 
time necessary to collect partinent data while maximizing 


ferent media, 


th 


accuracy. The program was t9 2ccommodats di 
eire@w for collection of admittance or impedance data or 
both, ama work for transducers with either electriz or 
Magnetic coupling, while being 2asy to operate. This was 
accomplished; but due to the large differences in properties 
Seale esmsn. theneducsers, a second program was wratmen te be 
used by more experienzted operators. 
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One program is designed so that a person with mininal 


knowledge of the transducer of measurement procedures may 
run it and obtain meaningful information. It is suggested 
that the operator b32 familiar with the operation of the 
interfacing instruments (especially the Dranetz meter). An 
equivalent program 1s designei so that the cperator may 
select the bandwidth for data collection and may specify the 
frequency fcr measur2ment of ta2 blocked values (done as a 
percentage of the resonant fr2qgauency). 

The program is broken into three sections. The fantst 
gives th2 operator an overview of the conductance and 
resistance of the transducer uader test. Fart two is the 
data collection for jiesired mtasurements with options for 


plots and lists of tha data. The final section performs the 


Gaecwmetions ror motional data, Semeur eVewes. and octher 
desired outputs. Prepsslieweag subdavisions address the 
program in detail. Mugiicemse. 2.15. a f£l5e chart of the 
program. The programs written in BASIC are included as 


Appendix A. 
1. The Search 


Pe eae DEE oneness bisien included ~o allow for 


v-sual and graphic display of ta2 response of <he transducer 
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over a selected frequency Tangs. Mae OpebatOor ts fSgu Tred 
to insert information on the type of couoling (magnetic or 
electric) of the transducer and the medium (air or water) in 
which measurements are to be taken. The operator is 
instructed to set the Dranetz for the measurement of 
admittance data and to specify the range to be covered in 
the frequency sweep. The operator also enters the desired 
voltage to be sent to the Dranetz. This manual volt«age 
input is necessary since at higher frequencies lower rms 
voltages are necessary to keep the ac voltage meter on the 
Pranetz at 3.0 VY. 


THe@e@uagh the Data Acguisitien Unit, the relative 


it 


amplitude of the real part of the admittance is samplid at 
300 equally spaced points throughout the selected frequency 
range. A graph is iisplayed 91 the CRT and then copied on 
the thermal vorinter of the HP-35 for later reference. In the 
event that some paran2ter needs t> be changed, the operator 
is given the opportunity to rerin this portion. 

oh Opemator is Instructed to specify a relative 
emplocuae “(trom © ts 1.2) that is less than the mAaxihua of 


the admittance peak 92df interest. ale COMpPUTSO PrBAts "th 


Mm 


tTelative amiitudes greater than this value and the 


a2 





associated frequencies. This allows the operator to select 
the reson2znce of int2arest and »rovide the center frequency 
and halfwidth to b2 consSider2i in finding the resonant 
frequency and quality factor (Q). A comparison is done to 
find the absolute maximum valu2 for amplitude and the half 
power points for tha determination of Q. rhe Tesuleant 
factors are printel and the option +5 rerun iS 2gain 
extended. 

This same subroutine is again used to obtain sinilar 
date for the real part of the inoedance. The subroutine is 
an adaptation of 3 part of a procedure designed by 
Conte [Ref. 13]. 

Although two repeats of the subroutine take about 10 
minutes, the operator is givan sufficient information on the 
impedance and the adnittance responses of the transducer to 
Gecide which type of meaSurensnts will provide the aost 


accurate information. 


The computer has the frequency synthesizer send a 


iregquency far below sresonanc:. The meters cf the Dranetz 
are zeroed by ths operatoc and set Eor full seélc 
Ge flection. Amn average of tn measur2aments for each 
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Figure 3.2 Flow Chart of the Program 
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terminal is placed in memory ‘59 be used as normalization 
factors for ail later DC sutpat voltage measurements. 

While still at this frequency far below resonance, 
an average of ten measurements will be made, normalized and 
scaled (using operator input for the scale factors from the 
Dranetz instrument) and stored as blocked values of 
conductance, susceptaice, resistance and ceactance. These 
will be used later ia computations after being assigned to 


Gifferent variables depending on the mediun. This one 


f+- 


measurement is all that is necessary for the electrically 
coupled transducers with small dielectric losses. Fans he 
magnetically coupled transducers, the values are taken far 
below resonance and stored. The program loops back through 
this secticn afrtar sending 2 nessage to the frequency 


Synthesizer to jo an equal iErequency distance above 


c+ 


rescnance. An averag2= of the two values is stored for later 


fs 


use. This averaging is nécessary since the eddy current an 
hysteresis losses cause a steady inczreasa in the blocked 
impedance values. 

The decision of tae operator on the type cf data <o 


be collected is entere2d. Tae scale factor frem the Dranetz 


ui 


anstrument is entered and the sompu*er gots to a subrouczine 
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for data coliectiean. The computer draws the appropriate 
center frequency fron the data collected during the search 
and bases the bandwiith for th2 sweep on the quality factor 
measured previously. Fifty fraqguencies and the associated 
real and imaginary iata are m2asured ani stored from ten 
times the half power bandwidth below center frequency to two 
times the bandwidth below resonance. Two hundred 
measurements are taken in th2 vicinity of resonance and 
another fifty in a region from two to ten times the 
bandwidth above resonance. (Note: This program reduces the 
range of interest to plus and minus five times the bandwidth 
around resonance wh2n tests ars done under load (water) 
Gemen: Ons. The sezond progran takes data at three hundred 
equally spaced frequencies within the bandwidth specified by 
the operator. Once the data aave been collected, another 
Subroutine is enterei to find the minimum and naximum values 
for the two sets of jiata and their associated frequencies. 
This is accomplished through a comparison to a minimum (or 
maximum) value until a smaller (larger) one is found. A 
reassignment is done and the conparison continues throughout 
the data. The maximum value ani =he two adjacent values are 


then fitted to a quadratic equation which is used to produce 








a better estimate o£ the maximum andi its associated 
frequency. In the svent of an error in data collection, 
there is an opportunity to retake the data before proceeding 
in the program. 

A subroutine provides for a listing of the collected 
data (100 points) in the vicinity of rescnance. All of the 
data could be printei; however, the data néar resonance 
provides the important information and printing is an opticn 
open to the operator. 

Plots of th2 data may bs made. The operator may 
chose to make plots »9f real 9c imaginary amplitudes versus 
frequency or the plots of r2al versus imaginary data over 
Pe-aquency, or all, or none. Each plot is drawn uSing 2 
Suproutine and labeled with pertinent scaling and captions. 
Mimeene end of this shapter, Paggmese Sos through 3. 14eare 
examples of plots f9r a piezs2léectric transducer. (This 
exampie is for a fTfype 100-5353-010, Ssarial No. 1243, 
designed fcr use in an active sonobuoy.) Bagimos.~ 35°15 
threugh 3.22 are 2xamples of plots for 4&2 magnetostrictive 
transducer. (This 2xample is 3 Type CMT-10255, Model QGB, 


Ses-cai No. 318.) 








3. Data Manipulation 
fmocene wGatciba=i10n Of #Stional data, the type of 
coupling of the transducer becona2s important. 
ae Magnetic Coupling 
BOG 4 magnetically coupled transducer, the 
motional impedance iata is calculated by subtracting the 
blocked resistance from Sach resistance measurement. 
Blocked inductanc2s at resonanzs2 is calculated using the 
averaged blocked reactance value. The angular frequency 
multiplied by the blosked inductance is then subtracted fron 
each value cf reactance. In th2 event aimittance data has 
been collected, th2 motional conductance is obtained by 
subtracting the blocked eordqductance, while notional 
Susceptance may be obtained by subtracting the blocked 
Capacitance multipliai by ths angular freguency from each 
value. A list of notional data may be obtained. A plot may 
be elected and drawi and labeled with axis scaling done 
using minimum and maximum values of the calculatac data. 
Compieare anes egre Gon] Using theecollected jaca. 
The dynamic electro mechanical coupling coefficient is 
calculated from the rescnant frequencies. A new quality 


factor is calculated based cn the frequencies Of maximum and 





Minimum amplitudes of the imaginary part of the data 


collected. Values of some blocked measurements, quality 
factors, the couplinjy coefficient, and resonances are output 
tc the printer. 
Be Bbeectruc Soupling 
FOr an emectrically coupled transducer, 


ielectric losses ar small and it is acceptible to us2 the 


ay) 


values measured far below resonance as the blocked 
measurements. Motional resistance is obtained by 
subtracting the blocked resistance from 23ach neasur2ament. 
The addition of th2 angular frequency nultiplied by the 
calculated blocked iadjiuctance t>» the reactance neasurements 
ili provide the motional reactance. The lata may be listed 
and a plot maie. An example of the mctional impedance plot 
can be seen in Figure 3.9. 

Motional admittance data may be obtained by 
subtracting the reciprocal ofr the blocksd resistance from 
each conductance valu3. fhe anjyular frequesacy multiplied by 
the blocked capacitanrte is subtracted fron each susceptance 
measurement. Figur? 3.10 shows a motional admittance plot 
BOa a2 PLezoOecbectrisc transducer in air. Calculations similar 
to those for magnetis ccupling 2r2e done and desired values 


Prin ed. 


Ur 
od 








Arter measurements are taken with the transducer 
under load (in water) salculations are done to find the 
efficiency and optimal operating frequency (for magnetic 
Gaupling). This information is output £o tne printer. An 
Oppertunity to repeat data collection in either mediun is 
afforded before data on air and water temperatures and 
transducer identification numbers are requested prior to the 
end or the progran. A Sample o1atput (EOr the 
magnetostrictive transducer Typ2 CMT-10255, Serial No. 318, 


Model QGB) is includesd as Figur2 3.23. 
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VALUES MEASURED IN AIR FROM ADMITTANCE DATA 


BLOCKED INDUCTANCE = 8.86E-4 HENRIES AT 23956 Hz 
ELECTRICAL QUALITY FACTOR = 189.73 

MECHANICAL QUALITY FACTOR = 29.426 

ELECTRICAL RESONANCE = 23956.0379323 HZ 

MECHANICAL RESONANCE = 23920 HZ 

DYNAMIC ELECTROMECHANICAL COUPLING COEFFICIENT = .003 
BLOCKED RESISTANCE = 33.724 OHMS 


VALUES FOR MEASUREMENTS IN WATER FROM ADMITTANCE DATA 


BLOCKED INDUCTANCE = 9.01E-4 HENRIES AT 23932.48 HZ 
ELECTRICAL QUALITY FACTOR = 18.513 

MECHANICAL QUALITY FACTOR = 19.688 

ELECTRICAL RESONANCE = 23932.4882297 HZ 

MECHANICAL RESONANCE = 25892 Hz 

DYNAMIC ELECTROMECHANICAL COUPLING COEFFICIENT = .00538 
POTENTIAL EFFICIENCY = .20398 

FREQUENCY OF OPTIMUM EFFICIENCY = 24246.61 HZ 
MECHANICAL POWER UTILIZATION FACTOR = .14645 


Figure 3.23 Sample Computer Output 
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IV. TEST AND EVALUATION 


Although many of the calculations mad2 by the computer 
are basic, it was desireable to have a set 3f data collected 


Manually to ensure accuracy of the semiautoOnated system. 


Ae TESTZING 
1. Method 

Data were collected for four different transducers, 
all of which were later usei to test the computerized 
system. A similar equipment set-up was used with the 
computer replaced by an operator and an X-Y¥ plotter, and a 
Wavetek pulse/function generator in place of che 
synthesizer/function jgeneratoc. 

The frequency spectrum was swept manuaily with plots 
made of the real and imaginary components versus frequency. 
From «hese plots, amplitudes and frequency vaiues were 
obtained and caiculations similar to those done by ‘the 
computer performed. 

2. Comparisors 

For the magnetostrictive transducer used here, the 

data output of the conputer corresponds very ciosely to “that 


collected manually. The bloskid inductance was found to be 
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the same calculated by either method to five digits. 


Resonance frequency variations up to, ten hertz may be 


attributed to temperature variations; and these frequency 
Meemeataome wall affect the soupling coefficient. The 
efficiencies comparei to within five percent. 

Comparisons o£ the piezoelectric data were as 
favorable as that for the magnetostrictive transducer. The 


blocked capacitances variad by up to six percent and there 


were small resonance frequency iifferences in some cases. 


Be EVALUATION 

The resonance frequency variations noted may be 
attributed mainly to temperature changes from one experiment 
to another. Larger ieviations noted in a few cases are due 
to inaccuracies in ceading graphs or in determining a true 
Maximum for a very low 2 devic2 as is the case for many 
transducers when placed under load. ror the examples used 
heee, the computer iata ame considered more accurate since 
it measures and compares data to five digits, far bar Se 
than the average ey2 can do with unscaled data. In the 
commpuiterazed system, the datascolltected in the vicinity of 
resonance are comparc2d t> find the absolute maximum value 


and the associated fr2quency. This point and «wo adjacent 


2), 





PermtsS @re then used for 4 parabolic fit to find the osc se 
frequency for maximam component amplitude. This provides 
accuracy in the resonance frequency far in excess of what 
may be achieved manually by an  2perator. 

A ‘'@elay time’ to allow stablization of the systen 
(dominated ky the response tine of the Dranetz meter) was 
determined to be o22 hundred milliseconds. In manually 
sweeping the fregu2nocy spectrun, Stablization time is 
difficult to achieve. This may result in the appearance of 
Spikes in the plots which increase the difficulty of manuai 
evaluation of the collected data. One> this sz=adlization 


time was determined, all wait times in th 


(D 


computer program 
were ensured to be greater than this value with the longest 
Walting period duriag deternination Stone Shim: and 
normalization values. The sesoni longest wait period occurs 
Guring the data collection. Here, a period of two hundred 
fifty miliiseconds has béen used iteemens Vicinws of 
resonance to minimiz> the chanc3 of error. The added minutes 
FOr data colbectaon that this azdiditional wait time requires 
is of minor inconvenience compared to the improvement in 


accuracy. 
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Transducers may 2xhibit a moderately high Q in air 


(above 25). For these (and most resonances with a Q above 
5) the program with set frequency ranges for data *taking 
works well. However, these same transducers may have very 
low quality factors under load (in water). To avoid data 


review over a frequensy range beyond the upper limits of th 


(D 


instruments and perhaps overlapping other resonances of th 


(D 


transducer, it is racommendei that the program allowing for 


operator input of th2 frequency range be utilized. 


Cc. CONCLUSIONS 

It was noted that most transducers have more than one 
resonance. To be a useful analytical tool, the operator of 
this system needs t> know the primary dasign frequency of 
operation for the test transduc2r. Should the resonance at 
this frequency cause the admittance or impedance to exceed 
the limits cf the Dranetz meter, the operator may opt for 
Gimea taking of che type tS fall within linits. 

Manual collection of impedance and admittance data for 2 
single transducer in two asiia (aic and water) and 
Calculations similar +o those done by the computerized 
system utilizing data at three hundred frequencies requires 


on the order of fifteen hours. This system carries out 
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ctr 


these operations in seventy-four minutes. For most 
transducers, only one type of data (admittance or impedance) 
is normally collectei. A typical measurement which produces 
results and the plots similar t9 Figures 3.15 through 3.23 
would tak fifty-twd minutes. (Sines each col eemion of 
data allows for four plots and two lists of data, the time 
to run the program collecting impedance and admittance data 
[mo weeoen Media could be reduced ‘by forty minutes and 
collection of one type of data in both media by twenty 
Minutes if no plots or lists were made ani only the listing 
of transducer paramet2rs Similar to FPigur2 3.23 desired.) 


oe 


The major time saving factor for 


f 


found through the replacement of the Dranetz Impedance Weter 


ct 


his system would be 


With an instrument that does 19t require as much operator 
interface. Howeve , S@emi-automation as provided in this 
system constitutes 2 major tine-saving over manual ae¢ans 
even when the equipment set-up is not altered in a major 
way. 

The plots prodused using an X-Y¥ plotter and sweep 
oscillator enable measurements of frequency with an accuracy 
OF RDOUT One percen. Geeneg tac onmputer, the précision is 


better than one ia ten tadusand. Sapalarly, FOr 
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Calculations using r2al and imaginary components of the 
impedance or admittance, computer precisisn is better than 
one inten thousand aS opposed to about one inten for 
Manual manipulations. However, the measurement accur2cy is 
at best plus or minas two parteant for the Dranetz meter. 
The advantage gainsdi over manuzl methods by using the 
computerized system is due to the systematic pauses for 
Dranetz meter Stablization prior to all measurements. 

This system has been designed to analyzes any type of 
transducer. Specmer GC aaapcation +o handle a particular 
transducer type with known resonance rang? can drastically 
reduce much of th operator interface necessary for 
evaluation of the properties of the transducer and raduce 
the time Beqguarement acecdriingly. Adaptation f=" we 


particular type of transducer will allow variables currentiy 


t-? 


in the computer proyram t>2 be made constant. Carefu 


J 


selection cf these values will maximize accuracy anda 


precision in the desired measur2nents and calculations. 


D. RECOMMENDATIONS FOR FURTHER IMPROVEMENTS 
In all of the preseding distussions, it must be apparent 
that the "weak link" in this system is the Oranetz impeiance 


meter which is over fifteen years oid. The difctieultics 
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with this device are primarily its lack of computer 
Sonmtcollapziaty, its plus or miaus two percent accuracy, and 
its high noise at low signal levels. 

Although it was unfortunately not available for this 
study, the Hewlett-Packard 41392A Low Frequency Impedance 
Analyzer seems to be the proper replacement for the Dranetz. 
It is capable of fill program control via the HP-IB and 
would also eliminate the neei for @ separate frequency 
synthesizer and data acquisition system. oS yehea ly. 
recommended that this device b= substituted in any future 


applications of this techniqu3. 
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APPENDIX A 

TwO programs wer2 written to implement the measurement 
procedures and th? csalculations +o evaluate any type of 
transducer. The first progran titled "HYDRA2" autcomatically 
looks at a frequency range of ten times the bandwidth on 
elther side of the resonance frequency. (This is modiried 
for water to be five times th bandwidth on either side.) 
This program also automatically selects the frequency at 
which to take shunt measuremeits based on the Q factors. 
The second program, titled “PICXBW", ailows the operator to 
specify the bandwidth for analysis and the frequency at 
which to measure shunt values. The following reference 
Guide is applicable for both programs. Major differences in 
the programs occur betwean lines 2501 and 2650 and between 


lines 8601 and 8635. 
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REFERENCE GUIDE 


Line Nos. 


me - 60 
ao - 90 


100-149 


150 


153-176 
177-186 
198-450 


451-500 


Deo SO 


541-642 
645-657 


658-668 


670-757 

800-940 

1000-1031 
1040-1146 
iS0= 1225 
1350-1410 
2501-2650 
7000-7545 


8100-8110 
8200= 8250 
8300-8380 


8400-8450 
Gaa9= 8573 


Deserl pei on 


Declaretions, inputs, "bookkeeping" 


Aimittance Spectrum (freq. & Q) usin 
Subroutin: 7550 : 


edance Soectrum (freq. & usin 
Subroutine 7900 { : a : 


LD pene blocked values using subroutine 
2 


Impedance data collection (option) 
Admittance lata collection (option) 


Listing, and plots of data using 
Subroutines 


bees Cale. £Or Bagreto. (£55 


ww 


Y 
B® Ecematodes a calc. for elec. (for 
EY ¢ "Gare a) 


List Sa nots meal data and plot 
Mational data calc. for elec. (for 'Z! 
73a ta) 

i} ca oneeedeatsmcalc, LOE Bagmeto. (Sor 
"6 ° *darteay 

List »9£f motional data and plot 


Ca Ve@barvsheaet >t elec, coupling in air 
3 leatations Tor Magn. couphing im ais 
Sa lembattons for elec. coupling in wawer 
Salculations for magn. coupling in water 
Jptions for cerun or change of mediun 
Subroutine £5 determin? blocked values 


Sabroutins for search and spectrun 
analysis 


SWrewcrins t> print deta list 
Susbromeine to olot real data vs. fr2q. 


Subroutine t5 plot imaginary data vs. 
rreq. 


SebrOucemn= c> plot “*errcles’ 
Bimota ns tS Obtein adtmalization 
ta Gtous 


Wz 





860 0= 8699 Subroutines ¢£5 colleet iata 
8700-8799 Subroutin= §5 geeerwin= max/min values 
9000-9350 Subroutines for printouts 
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1 REM **HYDRA2** 

2 OPTION BASE 1 

meoneRt @O,Ul 0S,09 ,C,E,EZ,£3,E5,R8,R7.X2,82,%5,X6,X7, XB 
iG7,G8 ,22 ,82,85,86 ,E7 BB, ek) Dae 

POR? ALFo £3,F4,F5 Hi,H4,J1,02,03,J4,R,X,G,B 

SeeraGER M,Y,Y1,1,Y2Z,0 ,22 ,H1,H2 ,Lbz,Sl 

ep imseS{ 2) ,As(2),TS{1) ,£(200,2) ,ALS[4] ,DS[ 300] ,LS$[20], 

meee ieee | Lb) poe tO) ,CS(S}] ,.CS[2:2] ,.A${22] 

mebeAL Sv Ne ,NS!,RO,RS,X0,X9,L,CO,LO,O ,21,H8 ,BS ,F,K0,G0 
.G9,B0,BS ,N(10) ,M(1U) ,FO,F1,F6 ,F8 ,F9 

14 REAL $8,£4,E6,L5,D ,D1,D2 ,D3,D4 

15 X6,D1,D2 .D2?,D4=0 

Peon awe Se Sy Ro, Rs), XZ2,X3,45=0 

17 23,A,£2,°3,F4,F5 ,B6,B7,86=6 

Moeooree .oo ,f),Y ,Y¥1,1 ,Y¥z,J ,22=0 

19 K,K1,2S,P6,w,O0 ,Q1 ,US 9 ,E=0 

20 CO,LC,C,P1,E,H8 ,HS ,F,WO ,S=0 

Z1 N,N&,NQ,RO,RY,X0,X9,GG ,G9=0 

22 80,BS,H1,H2,F0,F1,F6 ,F& ,£F$=0 

25 DISP "IHIS PROGRAM AUTOMATICALLY SELECTS HALFWIDTK FO 

h BATA COLDECTION,” 


26 DISP "THIS LCOKS AT 10 X BW IN AIR & 5 KX BW IN WATER. 


27 cISP "TO INPUT YCUR OWN BANCwIDTH USE “PICKEW° ERCGRA 
M INSTEAC. (HIT “CCNT’)" 

2¢ PAUSE 

30 CLEAR € BEEP 

Peepeter "ENTER TYPE CF TRANSDUCER TC BE MEASURED? (‘mM FC 
Kk MAGNETIC COUPLING OR “E° FCR ELEC.)" 

Pome euses@S@ BISP "TC GET A CCMELETE SET CF DATA YOU NEE 
D MEASUREMEKIS IN BCTH AIR AND WATER. " 

45 DISP "CDC AIR FIRST.IN WHAT MEDIUM ARE YOU OFERATING? ( 
ENTER °l1° FOR AIR CR °zZ° FCR WATER)" 

46 INPUT M@ CLEZR @ BEEP 

ay ee h=2 THEN 49 
Ge OS="AIR” ¢ Z2= 
a 25— WAITER" @ Z2=5 

Be PRIN@ER IS 2 € PLOTTER IS 1 

55 DISP "SET THE DRANETZ FCR ACMITTANCE.SET CN LCwEST SC 
SRE 2HerT wCN 1 PEAK OURING KUN. 1CONTL)" 

6C FAUSE 

65 PRINT @ PRINT @ PRINT 

a So APP TITTANCE IN “;:CS 
> GOSUE 7UCC 

SQ IF M=2 THEN $O 

65 FO=—P6 © JVO=D @€ ECTC 160 
a) eee G L1=0 

160 GCLEAR @ CLEAR € BEEP 


LG5 DISP "SET CRANETZ fFCR ID.PEDANCE-(SCALE NEEDED) -HIT C 
Che * 


0 € COTO $1 


n 
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L1C PAUSE 

5 PRINT @ PRINT 6 PRINT 

1Z0 PRINT “IMPEDANCE IN ";CS 

125 GCSUB 7000 

130 IF M=2 THEN 140 

135 F8=F6 € C8=G © GOTC 141 

140 FS=F6 @ QO3S=0 

141 CLEAR @ BEEP 

142 PRINTER IS 701,76 @ PRINI USING 144 

144 IMAGE Z/ 

ee PRIND "F(Y-AIR)= "sINT(FO),,"F(Y-WAL)= "sINI(FI),,"F 
(Z-AIR)= “sINT(FS), ,"F(Z-WAT) ="; INT(FS) 

memeernn “er Y~ATR)= ":C0, ,"W(Y-WATER)= “sC1,,"W(Z-AIR)= 
aco ,, C(2Z-WATER)= °";U9 

147 PRINTER IS 2 

WS GLEAR © DISP "THESE ARE THE INITIAL ESTIMATES. (HIT “ 

CCNI° WHEN READY TO PRCCEED) " 

149 PAUSE 

L150 GOSUB 2501 

152 CLEAR © EEEP 

i Dis’ "TO CCLLECT ADMITTANCE DAIA (FCR ELEC. COUPLING 

) ENTER “1°. ENTER °Z° FCR IMPELANCE" 

154 INPUT L2@ PRINIER IS Z 

mes IF L232 THEN 156 

imeeeG’ @ 1S="5" € SS="ADMITTANCE” & HS="CCNCUCTANCE 
(MICROMHOS)" € GS="SUSCEPTANCE (MICROMHCS)" 

ley GOTC.159 

fee BS= oR ¢€ bS="xX" € SS="IMEFELCANCE” € GS="REACTANCE (OH 

MS)" € HS="RESISTANCE (OHMS) " 

159 IF L2=l1 THEN 176 

leg ©WPAR G DISP "SET ON Z AND ENTER SCALE FACTCE TO COL 

Dect, BATA." 

Jol INPUT S&@ PRINT SS;" IN "3CS @ PRINT “SCALE =";S8;" 

OHMS “ 

lee ChbSR € DISE “I AM WORKIKG" 

164 GCSLE 8600 

es IF ez THEN 152 

lieo Sr M=2 THEN 16¢ 

loy KSO=E © X3=E2z © KS=ES © F4=E4 

16E€ X6=E5 @ FS=E6 © FE=EL1 © GCTC 196 

169 R7=E © KZ=EZ © K7=E3 € F4=E4 

176 xS=£5 @ FS=E6 € FS=El € GOTC 196 

176 CLEAR © BEEP 

177 DISP "SEI CN Y & ENTER SCALE FACIOR IN MICROMKCS TC 

CGELEaCT. DATA. “ 

17S IMPLT SY@ PRINT Sb;" IN “";CS € PRINT "SCALE =";S8:; " 

MICKROMhOS" 

L179 GOSUE 8600 

160 IF y=2 THEN 1£2Z 

1$l IF M=2 THEN 165 
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16Z G8=E @ B3=E2 @ BS=E3 © F2=E4 

J§3 B6=ES @ FI=E6 € FO=El € GOTC 158 

165 G7=E @ B2=EZ © B7=E: 

186 F2Z=E4 @ B5S=E5 @ F2=E6 € FI=E] 

166 PRINT USING 19S 

199 IMAGE 2/ 

20 DISP “DO YOU CESIRE A LIST GF COLLECTED DATA NEAR KE 
SONANCE? (100 POINTS) (1=YES ,2=NO) " 

261 INPUT Y 

202 IF Y=2 THEN :00 

mee IF L2=2 THEN 240 

210 PRINT "ACMITTANCE CATA FOR ";CS;" IN MICROMHOS" @ PR 
INT USING 215 

Qe IMAGE 27 pYFRECGUENCY"” ,4X ,"REAL" ,6X, “ IMAGINARY" 

Ze GOTO 265 

240 PRINT “IMPECANCE DATA FOR “;CS;" IN GCHMS" @ PRINT US 
ING 215 

265 GCSUB 8100 

mee COBAR @ DISP "CC YOU DESIFE A PLOT GCF CATA?(1=YES ,2= 
NO)" 

305 INPUT Y@ GCLEAR @¢ CLEAR 

$15 IF Y=2 THEN 450 

220 DISF “ENTER: l= G/R VS. FREU; Z= B/X VS. FREQ; j3= B 
Mee G7X VS. R; 4= ENC PLOTTING LOCE." 

225 INPUT yY 

326 IF Y=2 THEN 365 

See PP Y=3 THEN 425 

740 IF Y=4 THEN 450 

245 GOSUB &2Z00 

356 LDOIR C © PEN 1 & PENUP 

Se/ MOVE D(1l,1)+.2z* (0(300,1)—-D(1,1)) ,-(E*.8) 

Soy @aeel RS;" VS. FREQUENCY IN “;CS 

Som GOTO 320 

27€5 GCSUB 8200 

oo) teme C «€ PEN 1 @ PENUP 

28 MOVE D{1,1)+.2* (0¢.2:06,1)-D(1,1)) ,-L-.5*L 

moo LAeeL IS;" VS. FREUUENCY IN ";CS$ 

£601 GOTO 220 

425 GCLEAR © CLEAR © GCSUE &4UU 

4¢1 FEN 1 

442 LCOIR C @ PENUF 

fs WOVE —(.5*L),~L-.2*L 

Seo emoeeLewitrUl ElBCTRIGZL “sSS:" ELOT (";IS;"vS.";£S;" 
iD ih ass 

6446 GOTO 2:20 

Seco IP wie=2 THEN €45 

mel TF PS="E" THEN 52S 

452 GCLEAR © CLEAR € DISEF "I AM CALCULATING MCTICKAL Cat 
a 

£65 CU=B* ,.QuccUls (Zz*EI*£6) 
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466 LO=1/((Z*FI*F6)° 2*CU) 

270 FOR I=1 TO 300 

Oyo D(1,Z2)=O0(1 ,2).-G 

Baio Bil ,3)=D(1,2).-D(1,1)*B/F6 

485 NEXT I 

450 GOSUB 87C0O 

500 GOTC 541 

525 GCLEAR @ CLEAR @ DISP “I Am CALCULATING MCTICNAL DAT 
a 

532 C0O=B*.G00001/(Z*FI*F) 

B25 FOR i=l TO 360 

Peo bil ,2)=D(1,2).-G 

Bey) © (1,3)=C(1,2).-D(1,1)*B/F 

$38 NEXT I 

5406 GOSUB 8700 

541 CLEAR © GCLEAR € BEEP 

542 DISP "CC YOU DESIRE A LIST CF MCTICNAL DATA NEAR RES 
Grech? (1=YES, 2=NC)" 

543 INPUT Y 

545 IF v=2 THEN 604 

S575 PRINT "MOTICNAL ADMITTANCE DATA IN ";CS @ PRINT USIN 
G £80 

Sour menGs 2/," FRECUENCY" , 4X ,"REAL" ,6X," IMAGINARY" 

595 GCLEAR € CLEAR 

6C0 GOSUB &106 

6C4 CLEAR € BEEP @ BEEP 

6G5 DISP "wXANT A PLOT?(1=YES ,2=NC)" 

61G INPUT Y2 

615 IF ¥2=2 THEN 755 

016 PLOTTEK IS 705 @ PEN 1 

620 GOSUB 8400 

628 LDIR G € PENULP @ PEN 1 

629 MOVE -(.5*L) ,-L-.Z¥*L 

620 LAEEL "MOTIONAL ";SS;" PLOT FOR ";:CS 

Gare GOTO 755 

a> Omer) © GCLEAR 6© DISP “I AM CALCULATING MOLICNAL DAT 


646 IF TS="M" THEN 658 

627 BOR I=1 TO 260 

ees Dil ,.2)=0(1,2)-f 

649 CO=1/(Z*PI*F*xX) 

650 LO=L/((2*PI*F6)° 2*COU) 

meee 2) =p (1 ,2)—-2*PI*D(I ,1)*LO 
052 NEXT I 

653 G@SLUS §700 

654 CO=AES(CU) © LO=ABS(LO) © BEEF 
655 DISEF “CO YOU WANT A LIST CF THE CATA NEAR RESCNANCE? 
l=vao eo )™ 

656 INPUT Y 

G57 CGOro 670 


——, 
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656 LO=X/(Z*PI*F6) 

@6e2 FOR I=1 TO .:00 

663 B(1,2)=D(I,2)-k 

664 D(I,3)=D(1I,3).-D(I,1)*2*PI*LO 

665 NEXT I 

666 GCSUB 87C0 

667 BEEP @ CISP “ DC YOU WANT A LIST Cf CATA NEAR RESONA 

NCE? (1L=YES ,2=NQ)" 

6608 INPUT Y 

670 IF Y=2 THEN 7066 

655 PRINT "“MOTIONAL IMPEDANCE CATA IN ";CS @ PRINT USING 
666 

Goo IMAGE 2/,° FRECUENCY” ,4X , REAL” ,6X , "IMAGINARY" 
70G GCLEAR © CLEAR 

705 GOSUB 8100 

706 CLEAR © SBSEEP @ BEEP 

71iG DISP “wANT A PLOT? (1l=YES ,Z=NO)" 

mes INPUT YZ 

we ULF 6 Y¥Z=2 THEN 755 

Yen PLOTTER IS 70S @ PEN 1 

725 GOSUB 6400 

737 LEIR C e FPENUP 

fee MOVE ~(.9*L) ,~-L-.2*L 

Pee Lease “MOTICNAL ";SS:" PLOT IN ":CS 
fee GCLEAR © CLEAR 

756 PRINT USING 757 

oe WAGs 37 

Pee Dise "fT AM CCING CALCULATIONS FOR YOU. FLEAS 
TBAT.” 

603 IF M=2 THEN 1040 

wee Pe To" THEN LuGO 

eee TE E2=Z2Z THEN S60 

640 JGO=EL/AES (E4-E6) 

pre Gl=ABS (h.2/(Z2*PI* FG) ) 

wee GOTO £355 

S0G Y&=EL/AES (E4-£6) 

fom Cl=Aeo(l/(Z2*PI*Fer*E z) } 

685 K=L-(FO/F&) 2 

825 KL=CL/(AEE (CC) +CL1) 

$:G GOSts $600 

S:l PFINTER IS z 

940 GOTC 1256 

1600 K=l1-(FS/FO0) ~z 

eS IF “ie=2? THEN luzs 

lOLO VLO=EL/AES (E4-Eb6) 

mors CGee 1030 

1025 VLo=EL/AES (E4-£6) 

14U30 GCSUEB 9ZzUU 

te eer 1S Zw GOTC 12506 

ier eet S= "4 TeEN 1150 


ee 
G 

ed) 
ITH 
de 
t] 
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DISP “IF YOU HAVE CATA FCR AIR, ENTER 1; 
INPUT Y 

RAD 

IF L2=1 THEN 1116 

IF Y=2 THEN 1062 

P6=D4* (D3-D4) /(D3*R7) 

WwO=F 1 

CL=E1/ABS (E4~E6) 
GOSUB $100 
PRINTER IS 2 © GOTO 1350 
IF Y=Z2 THEN 1135 

wC=F] 

Fo=D2*" (D1-D2Z) / (D1*G7) 
CL=E1L/AES (E4-E6) 
K=1-(F1/FS) “2 
GCSUE $100 
PRINTER IS 2 
RAD 

DISP “IF YOU HAVE DATA FCR AIR, 
INPUT Y 

ieee =1 THEN 1160 

IF Y=2 THEN 1162 
B=.5*ACS((R7-R3)/D4) 
Ho=SIN(B)°Z &€ HS=COS(B) “2 
P5=((14D3/R0*HS) ~.5-(L-Di/RO*H&) ~.5)/((14+D2/RO*HS) ~ 


ESE 2 


@ K=1-(FI/F9) “2 


euGeme 1250 


Dil eRe eer Si 2” 


.5+ (1-0 3/RO0*H8) ~.5) 


neo o 
L16G 
lloz 
|, Jetoas, 
1i64 
1168 
1280 
Lisz 
1164 
[86 
Li.és 


Paee*sin (2"8)/ (4*R9*CS) 
Pe=24* (03-D4)/(C3*R7) : 
CS=EL/ASBS(E4-E6) © K=1-(FS/F1) 2 


@ wO=F9* (Z*P+(EF°24+1)%.5 


eee B= pee, "KE 7K, K1="; hl," HE="7H8 , RS="3HS 
GOSUE 93500 

Senta. IS 2 © GOTO 15250 

RAC 

Wee Y=2 THEN 1210 


2=.5*ACS((G7-GS)/L2Z) 
H8=SIN(B)°Z @ H9=CCS(B) “2 
PS=( (1+D1/GO*HS) ~.5-(L-D1/GO*H&) ~.5)/((1l+tC0l1l/Gu*Hs) * 


5+ (1-D1/GO*H&) ~ .5) 


1190 
1 tems 
Eel 
Leciglgl. 
215 
225 
Sow 


P=DZ* SIN (2*B) /(4*G2*_ 1) 
Soae2* (P1~£2)/ (D1*G7) 
OC=EL/AES(E4~-E6) @ K=l1-(FS/F1) Zz 

Bee ee" Eb, “KE "3K," K1="3K1,"H5="3H6 ,"H9= 
GCSUB $306 

PRINIER IS 2 @ CLEAR © EEEP 

DIS& “OC YOU CESIRE ANCTHER IN THIS 


@ wO=F1* (2*P+(F°Z+1)%.5) 


"eHS 


memo: (TC Ghd 


oe SRT Ye E LATA?) ( L=YES4Z2=NO0) " 


| es 
eee 7, 
L136 
ds oul 


Rieu 21 

PEGERER IS 1 
Bee) THEN 15z 
Pte USING L:6<z 
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2612 


IMAGE 3/ 


ieee DISP DC YCU DESIRE A RUN IN ANCTHER MEDIUM? (l=YES, 
z=NO)" 


Bow 
5 
1360 


INPUT Zl 
If Zi=l THEN 45 
Poors JUST Fok THE RECCEL, 


MP, TRANSDUCER SER NC, MODEL NO. ," 


L381 
E365 
1300 
bee 1 
1400 


mo mCODEL NC.="FN,, TYPE 


1410 
2G 1 
Za Uis 


DISP "AND TYPE 

DISP "INPUT “U’ 

INPUT W,A,S,N,LS 

PRINTER IS 701,76 

PRINT "WATER TEMP=":w,,"AIR TEMP=";A, ,"SER. 
(ola S 


(E OR M)" 
IF INFO IS UNKNOWN" 


GOTO $998 
Rave *SHENT* 


CLEAR © BEEP @ DISP "WE ARE FINDING SEUNT 


mere OR R/X." 


2511.0 
aol 1 
Vas 2 
ls 
2514 
ZaeeS 
Ze 16 
5 17 
25 lie 
Zp 20 
i oa 
2a 2 
p. Sag 
2524 
Zee 

Zo2/ 
Zo IS 
Zows: / 
Zeit 
2546 


AS="FR" € BS="HZ" € Sl=l 
Peete M" TREN 2526 
feMe2 THEN 2516 
Gamrex (CO OS) @ P=FO0- (22-2) *FO/O 
ae 200 THEN 2535 

Beem (FO-2*F0/L-200)/50 @ GOTC 
Barea(c1,uY) © F=F 1~ (22-2) *F1/¢ 
We e200 THEN 2535 
PomoO+(Fil-2*F1l/u-200)/50 & 
IF M=2 THEN 2524 
@=pnx(LU,O8) © Fsrs-(22-2) *F8/v 
awe >eC0 THEN 2535 

Peart (PO-2* Pe/G-20C)/50 
@atmex (cl yeS:) @ F=r9- (42-2) *FS/u 
Waeeee 200 MPRER 2555 

Bereo0+ (F9ee*rS/L-2t0C)/ 36 
DS=VALS(F) 
GReeatT fli 
wAIT lOCU 
Pee Sel DPRANETZ FREU. 


N) 
in 
ua) 
cn 


GOCTC 


NK 
wn 
tal 
cn 


GY 
© 
al 
©) 
f\) 
in 
aad 
cn 


;A9 ,D5,ES 


SCnipeee, COVER RREG. ON 


Piel aereeaoeRC METERS .SET ON PS .(CONT)" 


ere) 
2542 
4545 
2546 
250 
25 51 
2556 
Z Sibul: 


Be US 
DISP "HERE wE GET THE NOCRMALIZATICN 
Clmreur 70S ;"vTL" 
GOSUb 654% 
G,b,R,A4=0 

Aiea" € BS="H2Z2" 
GEPPaT /1i 
CLEAR ¢ 


paCIok 


C4 


@ DS=VALS(F) 
WAS PLS Jeh 
CDISP "SET DRANETZ ON 


— 


Pree sCale ,SET Oh 


NRG Se 


[INPUT WATER IEMP, AIK TE 


Ch) 


VALUES FO 


SYN 


wCR 


eer eee 6+ WPHACE PLUG IN TPANSDUCER." 
Zee Gee @ DIGE “ENibR SCALE fAaACTCR IN MICKCMHOS. 
CARE ee rCR CAVA. (wE Gel SauNT Gye)" 

2ve4 IPO T Soe CLEAR ¢€ CISP “I AM wORKING 


Saris S&F 


1G Gel SeGewerT Vv 
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ALUES" € BEEP 
2665 FOR W=1 TO 1G : 
m5oo OUTPUT 717 :AS ,08,ES 
a567 WAIT 1C006 
meee GUTPUT 709*°;"ACc3" 
2£69 ENTER 709 ; M(I) 
2570 G=G+M (L) 
@671 CUOPPUI 7uS ;:“ac4é" 
P5722 ENTER 70S ; N(I) 
3 B=B+N(L) 
m2 NEXT I 
BS GeG/(I-1l) € E=6/ (I-31) 
2576 G=G*S8/Nn& @ BS=B*SE/NS € ELEP 
2576 DISP "SET CRANETZ ON Z2;SET SCALE FOR BAX RESFCMSE.Y, 
Ove TRANS. INEUT. EXTEK SCALE FACTCE" 
BeyS INPCT S@@ CLEAR @ CISE "I AN WORKING IG CET SEUNT V 
ALVES" 
meee FOR I[=l IC lov 
26e1 OUTPLI 717 ;AS ,CS,eS 
2582 wAIT 10CU 
ae « CUTPGT 70S ;"*AC:" 
@5e4 ENTER 70S ; M(I) 
2555 R=R+ei(L) 
Meee CUTFLI 709 ;"ac4" 
Cae? PRTER 70% :; N(I) 
2o6t& X=N(1I)+x 
2546S NEXT I 
z25$G R=R/(I-1l) € X=X/(I-3) 
2591 R=R*SS/N8 © X=X*SE/NE 
Boece If TS="h" TEEN 26106 
Bese TFPh=] THEN 266 
Booo Ro-n © XS=K & GI=C & BS= : EmGele 26 | 
Z6LL GU=C € EQ=B @ RO=R & XuU= 
2601 PRINT “SHUNT VALUES" 
z6CZ ERINT USING 2602 
2602 IMAGE 1/ 
eee) GOS" °Gl,,"f0="280, ,"FU=H"sRG, ,"xO="3xC,,"6 
fee, fee RS Re" RS PASH" XS 
Qpeo PRINT © GOTC 2620 
ZAeecG IF 6 Sl=2 THEN 2020 
moe, eee § =P OG IU 3=R BY J4= 
Z6lZ IF M=Z2 THEN 2615 
Mee =66+(42-2)*F5/0 © Sl=Z2 & GCTC 255u 
Boles To (72-2) *FS /, ©€°S1=2 © GCIC 2550 
mor Gareom (G+ 1) CT B=.5%* (8492) & Re. c* (R452) © X=.5* (04+ 
K) We Gomc 2555 
2630 GCLEAR € CLEAR ¢ EEEEF 
G25 Bese “ENTER 1 IF ALL IS wELL; °“Z° IF YCu REEL A R 
cera T 
Z64G INEGT Y 


Ln 


igit 





2645 
2650 
70CC 
7001 
75 


fer 2 THEN 2501 

RETURN 

Pec a Oo * * 

GCLEAR @ CLEAR 

DISP “ENTER LOWER, UPPER FREQ. FOR SWEEF.IF RESCNAN 


CE UNKNOWN USE 10C0C,2000CG. (f1,F2)" 


7010 


INPUT F4,F2 


7011 DISP “ENTER RMS VOLTAGE NEEDECD.(2000 MV FOR LOW FRE 
CG. AS LOW AS 20C0 MV FOR HIGEH)" 


7012 
7020 
#025 
70535 
704C 
7645 
700C€ 
FOR 
7065 
7070 
7075 
1065 
7085 
709C 
OSS 
7100 
UE Oi 
7110 
pes) 
Cage, 
TAs 
(Os 
(ake 
724U 
7145 
7150 
Peon) 
ico 
7160 
(ied 
Pez 
Ge 
Fol) 


INPUT A@ ALS=VALS (A) 

Culm € BEEP 

fowar  @ BS="hNR" 

CereurT 717 -As,A1$ ,2$ 

Seweui 709 ; AC3VT3" 

F3=CEIL( (F2e~-F4)/30C) 

CLEAR @ DISP “I AM WORKING TC GET THE SPECTEUM CATA 
YOU, THEN WILL ShOW & MAKE A PLOT" 
Pee I=] TO 3C0 

Digi.) =F 4+] *F : 

AS="H2" C BS="FR" 

DS=VALS(C(I,1)) 

OUmeet /1/ 355 ,DS,AS$ 

Germatiy 709 7; “AC3VT 3" 


wAIT 10G 

Peter 7OS =; D(I,2) 

NEWT I 

FO=F4-.1*(F2Z-F4) @ F6=F2+.1%* (F 2-4) 


FOS=FZh.1L* (F2-F 4) 

PROPTER IS 1 € GCLEAR & CLEAR 

Sen@me F5,F6,- 

Kees C,200U 
ol 


Pee rd ea 
eae: 
el Ls 


Yewers F4,.1, 

FOR I=1 TO 20C 
PENUP 

Peete o(l,l),2(1,2) 
NEXT I 


GRAFH we COFY 

Moe WEED ANCTRER HUN? (1=YES ,z=NC)" 

Meal yY 

Pierre! TEEN «Cus 

CLEAR © GCLEAR © SEEF 

Cie Sa ihR OPCTSICN PCINT FOR AMPLITULCE (CG IC 1.2) 


mibece tiem THE MAX CISPLAYEL). 


7170 
7180 
7 Von 
7150 
TLS 
72UU 
{205 


eee "Se CLBAR™G EEEF 

Swi  AtPELIULE Is VOLTS"; "“ FREWUENCY” 
Pee rT 

Beet -1 TC :UC 

ie ee, 2)<S THEN 7210 

Peer, USING 72025 7 C(I ,2) ,0(1,1) 

eee IX PE. CEPeCLel , lux .Coecce .Ce 
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7210 
7 ams 
1220 
W225 
7226 
wISE 
eZ i 
7228 
7235 
7220 
7240 
7241 
1262 
1243 
1245 
255 
7260 
765 
7270 
2/5 
T7286 


NEXT I 

PRIMT USING 7220 
PMAGE S/ 

CLEAR © BEEP 


DISP "IF YOU ARE READY TC CONTINUE ENTER “1°; OTHER 
ENTER “Z°." 

INPUT Y 

im Y=2 PHEN 716C 

DISP "WHAT IS CENTER FREC, HALFWIDIH TC CONSICER?” 


INPUT F,N@ CLEAR € EBEEF 

DISP “I AM wORKING TO GET GCOD FREG AND & DATA" 
EGR L=1 T@ s0v 

Deel =F N+ A N/ 150 


AS="HZ" C) BS="ER" 
DS=VALS(UDtI,lL)) 
CemPuUr 717 ;8S,0S ,A$ 
OmmPuT 709 ; "AC :VT3" 
WAIT 100 

POE R 70S ; D(I,z) 
NEXT I 


CLEAR € GCLEAR @ DISF "I A¥ FINDING THE ASSCLUTE MA 


% AND FREQ UPFER AND LOWER” 


1286 
weo5 
7300 
7310 
Teas 
225 
7240 
ieere'5 
7250) 
me 55 
2 3610 
1365 
‘a 70 
7365 
pee 
7400 
7405 
W425 
7430 
43> 
7440 
7445 
7450 
1455 
7400 
7470 
1475 
7480 


B1,B84=0 © H,H1,H2,H:,H4=1 


B2,B3=56 

FOR I=2 TC i208 

IF D(I1,2)<D(H,2) THEN 7246 
IF DO(1,2)=D(H,zZ) THEN 7225 
NO=D(I,2) & F6=L(1I,1) € HEI 
NEXT I 

A7=A6/2 

FOR I=1 TO H 

IF A7=0(1I,2) THEN 7405 

IF A7<B(1,2) THEN 7365 

IF O(1,2)<EB] THEN 7425 
B1l=D(I,2) © H1=I &€ GOTO 7425 
IF D(1,2)>B2 THEN 7460 
BZ=CDi{l,z) ¢€ H2=I 

GOTC 7425 

Bye 2=— (1,2) @ HL,HZ2=1 @ F7=0 (82,1) @ GCTC 7446 
near I 

X=(A7-61)/(82-B1) 


Meee (en? , lb) -CD(H1,1))4+0 (41,1) 
fer Ish 1C 200 

TF AgveC(I,2Z) IHBN /a@cs 

Pena > l( la) THEN 7475 

Been] ,2) Ses PEN 7470 
Be-eil,2) ~ H2=1I 
GeO 7515 

Bre (l ,2)<=684 THEN 
B4=C(I,2) € H4=I 


7490 
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7530 
WS 35 
2 36 
7538 


RUN FOR BETTER VALUES, 


7539 
7546 
7365 
8100 
8101 
Cake 2 
8105 
8105 
8106 
8107 
SlUS 
6116 
8 ZOU 
EZO1L 
8z02 
6203 
oO) 
8209 
6210 
geil 
2 A 
oF ils 
8216 
2s 
8216 


Gee V2 OR whl s=Pide, 1) TO 0(:0C,1) 
@ PENGP 


Giz 22 
Ga : 
&224 
5226 
Gz227 
6228 
6 Ze0 
Gee 
G24 
Gz se 


OZ 26 


GOTO 7515 
B3,B4>D(I ,2) 
L5=D(Hz,1) 
GOTO 7530 
NEXT I 
X=(A7-B4) /(Bi~-E4) 

L5=-(X* (D(H4,1).-D(H2,1).) )+D(H4,1) 
C=F6/ (L5~-F7) 

PRINT "CENTER FRE IS 
PeENT "C IS "s¢ a 
DISP "IF YOU ARE READY TO ERCOCEED, ENIER “1°. TO RE 
EMER 2 . " 


@ H:,H4=I 


eo 


INPUT Y 

IF Y=z THEN 
RETORN 

Reve PATA LAST** 

FRENTER IS 2z 

Ber 1-95 1C 199 

Peers OUSING 8105 ; D(igl),D(1,2) ,D(I,3) 


Boe DDPEPED.D,2xX ,LD.DCCE ,2X ,D.DDDE 
NEXT I 


PRINT USING 8108 

IMAGE 3/ 

RETURN 

Pee, ** PLOT RE** 

GCLEAR © CLEAR 

meee (1, 1)—. 15* (D(30C,1)-cv (1,1) ) 
fee o00,1)+.1* (b(500,1)-C2(1,1)) 

PmerrEr IS 705 @ FEN 1 

Sea iee,H9 ,—(. Seb) ,mt+. 2548 

memeoemor (500 ,1)-P(1,1))/10,E(1,1) vo :00,1) 
Seeeomei, |) ,r/f,—-(. 6°78) ,b+.2*b 
FE NUP 

Bem I=] TO 3UG 

peed O(1,1),0(1I,2) 

iat iI 

PewUP © DEG @ LOIR OC ,SIN( 90) 
Save 


ae) 


ons; ty=p(l,1)j) 710 


Pere Ll) ,-ih. 1S*E) 

LABEL INT(L1) 

NEAT Ll 

LOIK G © FPENUP 

eee) ( tele (D450 ,1)—-D(1,1)) .-(. 7*E) 
LABEL “FREQUENCY (H2Z)" 

PeeUr © FEN 1 

LDIR 0 

eee (ees) TC E+.2F STEP E/5 © PENUP 
Peewee (l, l)—.09* (0 ( 2uU,1)—-B(1,1)) ,L1 
CABEL INTI(L1L) 
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Aw 


82:7 
8246 
3241 
8243 
8250 
8300 
§201 
830 3 
& 204 
8305 
& 306 
6312 
eo.l 2 
8214 
S315 
8316 
S325 
8330 
8321 
€333 


MEAT Ll 

LEIR 0,SIN(9C) 

we omer Le feees00,1)-D(1,1)),.1*E 

LABEL Hs 

RETURN 

meee «PLOT Ih * 

GCLEAR € CLEAR 

mom hy, 1). —,. 5* (0(300,1)-D(1,1)) 

Bo—p (300,1)+ .1*(D{300,1)-D(1,1)) 

L=MAX (AES(E5) ,A&S(E3) ) 

MperiER is) 7US € FEN 1 

meen Heo ,-L-.S*L ,L+.25*L 

eee sud ,|)-0(1,1))71U,D(1,1) ,0(200,1L) 
eee ee) Glw/S --L-.2*L,L+.2*b 

EEN UP 

HOR i=1 TG :00C 

Peete {i j,i) ,0(1,:) 

NEXT I 

PENUP @ DEG @ LDIF C,SIN(SC) 

Memeo ett, lt) TO D( 200,11) STEP (0 (20U,1)—-D(1,1))/10 


@ FENUP 


235 
226 
es / 
8340 
8241 
834Z 
6245 
O Sz 
B35 
Gis 56 
Sas / 
& 260 
O61 
gh 9) 
8380 
¢400 
64U] 
84602 
G40 2 
6404 
8400 
6407 
&4C6 
6469 
6411 
S41z 
6415 
é4]4 
64 15 


MOVE L1,-L-.2*L 

LABEL INT(LL) 

NEXT Ll 

LDIR G @ PENUP 

MOVE D(1,1)+.2* (D(366,1)-D(1,1)) ,~-L~.4*L 
LABEL "FREQUENCY (HZ)" 

PENUP @ PEN 1 @ LDIF C 

Beret l=-L-.2*L TC L+.z*L STSE L/E @ 
MOVE D(1,1)-.09*(D(:00,1)-D(1,1)) ,bl 
LABEL INT(L1) 

NEXT Ll 

PENUP @ PEN 1 @ LDIRK C,SIN(S$0) 

MOVE D(1,1)-.1*(D(206C,1)-0(1,1)) ,-(L*.5 

LABEL GS 

RETURN 

REM **CIRCLES** 

GeLBAR 6 CLEAR 

L1=MAX(ABS (E22) ,ABS(E5)) 

L=MAX (ABS(E) ,L1) 

PLOTTER IS 705 @ PEN 1 

Seems 1.258 (-L-. WL) , 1.25*(L+.1*L) .-L-.2*L ,L+.15*L 
RBKIS 0 ,L/S',-L-.1*L ,L+. 1*L 

Vues 4G ,L/5,-L~.1*L,L+. 1*L 

FENUP @ PEN 1 

FOR I=l TC 206 

PLOT D(1,2) ,0(1,2) 

NEXT I 
PENUP 
LOIPR O © 


PENUP 


poe 1 © FENUP 
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&416 
8416 
5420 
8425 
8426 
6427 
6422 
8429 
6435 
8436 
6437 
E436 
643% 
8445 
&€ 446 
G448 


e557 
E53 
8555 
os'6 0 
8565 
S566 
O50 / 
5568 
8509 
5 70 
S572 
eo/3 
e575 
56 OU 
c6cl 
56 Cz 
€Gcr 
66 C6 
coC?7 
56Uo 
66 ZU 
sozl 
Go2z 
@o.2): 
6625 
662% 
3629 
S6 3G 
oigee |. 


Gite 2 


MOWE —(L*35) ,-~L-.1*L 

LAEEL HS 

PENUP @ PEN 1 @ CEG 

LDIR 0,SIN(9Q) 

FCR Li==G=—.2*L TC L+.1*L STEP L/5 @ PENUP 
MOVE Li ,-L 

DABEL INT{L1) 

NEXT Ll 

LDIR OQ @ PEN 1 @ PENUP 

FOR L1=-L-.1*L TO L+.1*L STEP L/& @ PENUP 
MOVE ~-(.886*L) ,L1L 

Meee INT(L1) 

NEXT Li 

LDIR 0,SIN(9Q) 

Pewme —(.95*L) ,-(.3*L) 

LABEL G$ 

RETURN 

REM **NORM** 

N8 ,N9=0 
FOR I=1 
WAIT 5UU 
OUTPUT 709 
ENTER 7C9 ; 
NB=NE+N(L) 
CULFUT 709 
ENTER 709 ; 
NS=N9+m(L) 
NEAT I 
N8=NE/ (I-1) 


eres 


AC 3" 
N(I) 


° nee a 
M (I) 


NS=-(KCO/(I-1)) 

PRINT USING 6573 

IvMAGE 3/ 

RETURN 

Reb **vALUES** 

CLEAR @ EEEF 

Sicoe 'T Ay CCLLUECTING THE CAIA NOW” 
beeee=)_ ABD M=2 PHEN 6624 
Peo o- 1] Ae Me=l THON Soz21 
i L2=2 ANG M=1 THEN S622 
Meme =2 AND M=Z THEN boz: 
FosFl © y=uUl © GCIC 6025 
Fo=FU @ C=y0 © GOTO &625 
Fo=r6o ¢ G=yo w GCOCTO sozt 
FO=FO € C=U9 

MOR f=] 1c 50 


Beet A 2 6 fut (22-2) *F6/(50%2) >cuu THEN 
Diplo, ) eres O- 2 FF G/L -2U0) *1/ Su 

GOO. 3632 

Mee wer O— ab o/Gtl* (22-2) *Fo/ (£0 *c¢) 
DS=vALe(DiII,1)) 


a0 31 
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Sars 3 
86 34 
6635 
6636 
gos 7 
66 35 
66 35 
6640 
S641 
&650 
Sc) om 
Biers Z 
So 5: 
6054 
3655 
€6 56 
805 

8658 
S659 
5666 
S661 
66 706 
S671 
coO7z 
56073 
8674 
8675 
56 76 
so77 
6676 
5679 
6686 
&6EL1 
S66zZ 


CUMPUT 717 
WAIT 150 
COCTEPUT 709 ;"AC3VT3" 

ENTER 7C9 3; H8 

C(I ,2) =H&S*S8/N8 

OUTPUT 709 ;"AC4VT3" 

ENTER 709 ; HQ 

D(I,3)=HY9*SS6/N9 

NEXT I 

POmeb=51 TO 250 

D(I,1) =F6-2* F6/o+ (I-56) * zZ* F6/ (100*¢) 
DS=VALS(DB(I,L)) 

Gerecr 71/ -AS ,CS,Es 

WAIT 250 

Sulpur 709 ;"AC:VT3" 

ENTER 709 ; #6 

D(1I,2) =H&*S6/N8 

@emeur 7/09 -"AC4&VT3" 

ENTER 709 3; &K9 

bl, 3)=nS*Sc/Nn9 

NoxT I 

FOR I=251 TO 300 

Dil, 1) =F6+t2*F6/0+ (1-250) *(Z2~Z) *F 6/ (50*C) 
DS=VALS(D(I,1)) 

Geral /l7 ;As,,DS,ES5$ 

“WAIT 150 

Cereur 709 ;"ACZVT3" 

ENTER 7US9 ; Hé 

C(I ,2) =H8S*SS/NE 

G@peur 709 ;"AC4VT3" 

ENTER 709 ; RY 

Oa, 3) =HS*Ss/h9 

NEAT I 
GLEAR 


7AS,DS,ES 


Cebigae [I AMROFINEING MIN/SAX VALEGES & ASSCC. 


FREGS"™ 


566% 
6064 


Meee ot: "GMAX=";8, ,"FGMX=";51,,"EGRA=";82,,"2 
be FRM x=" °E4 - ne pel” °ES j ae FBMIL="sEo 


5066 
6667 


, EXMK="';E¢, 


60 9 


GCSUB 56 /G0 


MEyL2=2 THEN 8637 


G@CIC 6697 

Pee RAK SeY FE, ."FREX="s1, ,"“MERNE" £2 
re "= bo, EAH 6 
BPE IS wELL, @N@ER “1°. BIER “2° 


é 
"Te 
a 


DISP 


E DATA," 


5696 
3o99 
5 7UU 
6703 
67us 
S/U0O 


PRPCT Y 

RETURN 

Roe ~*VAASIN® * 

eee), i2= LOU 

Peteevaerz eer] ES ,66=Cb41G0,1) B@ Ba,bs ,.65=D(1lvUu,:) 
Peer -iol TC 2Uu 
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eebeel’ B(1,2)<DiH,Z) THEN 6725 

Omi IF B(1,2)=£(H,2) THEN 8720 

Gym) E=b{I,2) © EL=D(I,1) © E2=C(I,:) 
Gee TF P(1,3)<D(HL,:) THEN 38740 
Oem 2F C(1,3)=D({H1,:) THEN §735 

efeo £3=D(1,3) @ E4=D(I,1) € H1=I 
feeeo TF O(1,3)>=L(HZ,:) THEN 38751 
6745 He=I @ BS5S=D(I,3) © E6=D(I,1) 
6751 NEXT I 


€ H=I 


Pee (Dine, 2) Db (Hol 2) )/2 © J3=(D(H+1,2) 


+0 (H-1,2Z).-Z*U1L)/2Z 

8762 F6=-(J2/(Z*J2)) 

$704 A=Ji+t02+F6+d 2*F6° Z 

60770 FO=D(H,1)+F6* (O(H ,1)-D(H-1,1)) 
i> EL=F6 © E=A 

6788 D=ABS(E3-ES) 

SyocS TF M=2 THEN §&75: 

S7o0 iF EZ=1 THEN 8792 

5791 D3=D @ GCTO 6766 


8792 D1I=C @ GOTO 


Orc O 


Oe oefr Le=1l THEN 8795 
8794 D4=0 @ GCTO 6796 


68795 b2=C 
6796 FRINT 


Pee RETURN 
Beck LC-A* * 
meee PRINTER IS 


SOQU REb, 


S$UG2 FRINI 
Boece PRINT 
SGU4 FRINT 
CO1ll PRINT 
ee hz” 
9012 PRINT 
$OC12 ERIN 
$014 FRINT 
96015 FRING 
SClo PRINT 
ae | KK 
SOL PRINT 
Sie FRING 
Soest PRINT 
mese LACE 


9050 RETURN 
**CALC-i** 
$101 PRINTER Is 


“200 BEM 


Sluz &RINT 
S11 Pere tT 
" DATA" 

ylu4 ERING 
Sia Eee 


0 bee op, , C2="s3bz ; bee DS , , bas" °D4 


C10 as 
@ PRIN 
PvP euro MPA SULEL Diealh FRCN ~;S5;" DATA" 
"ELOChED CAFACITANCE= ";A&S(CU);" FAFACTS AI " 
PeEn@meICAL GUALITY PACTCR = "; 0 
"MECHANICAL YUALITY FACTCR = “;\u5 
MobeG@leICAL RESUNANCE ="; FOs" Ha" 
PipeneNICAL REG@NANCE = 'sr6s" £2" 


eaves EMBCIC Cy ECmANI@AD CCUPLING COEFFICIE 


feet iC CCURFING CORFE DCI. hae ® pn 1 
VEUCG@QED KESISTANCH=”; FG; “Chas” 
USING BUsz 

</ 


Bul We 
ee FRINT 
"VELUES FOR vrEASUREMENTS IN WATER FRCM "3SS; 
See ereerk CAPAC) TALGE ="; AES(CU);:" FARALCS Ai 
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ie AZ" 

Y11zZ PRINT 
peeks: PRINT 
$114 FRINT 
9115 PRINT 
Sllo PRINT 
NT = "3K 

oa20 FRING 


ee21 FRINT 
mez 2 PRINT 
me s2 PRINT 
ees IPACE 


9150 RETURN 


"ELECTRICAL 
“MECHANICAL 


WOALITY FACTCR ed 
CLALITY FACTOR 
TweeowmmICAL RESONANCE = ";F1;" 
"MHECHANICAL RESONANCE = ";F9;" HZ" 

"DYNAMIC ELECTRCMECHANICAL COUPLING COrFFICIE 


nol 
‘a 


"AECHANICAL POWER UTILIZATICN FACTOR" ;AES (£6) 


Peo REM **CALC~A/i.** 


fewt PRINIER IS 


9Z02 PRIN 
GS2Cs FPRINT 
9204 FRINIT 
Czll PRIN‘ 
°FO6; Wiggs 

9z1z FRINI 
mes PRINT 
S214 PRINT 
$215 FRINT 
S$Zlo FRING 
NY = "3K 


peewee COUPLING CCEFFICIENT=";K1 
Cute Greb RESISTANCE =" ;hS; “OhMS" 
SING 13 5 
ey 
ods, 76 
@ PRINT 
Sreiwns MEASUREL IN ALR PROM “;S5;" LATA" 


VER@@men INDUCTANGE= ";ABS(LC);" HENRIES AT " 
"ELECTRICAL 
"WECHANMICAL 


UoeeryY EXCTOR = “su 
Ceneity PACTCR = "> L& 
PrPEeereICAL BHeSCMANCE =" sFO:" HZ” 
"MECHANICAL RESCMAMCE = "“sF8:" HZ" 


SiviiemiC ELECURGyEChaya CAL CCLPLING COEFFICIE 


fe Peony 6 "ELCCKED RESISTANCE= ";R;:"“CEvS" 
Szsil PRINT USING $222 
meee INAGE z/ 
9250 RETURN 
SeU0 REM **CALC-u/M** 
eo, Pelieler. IS /L1,76 
Pees Frei e€ PRIN 
Pouce r kia "VALLES FCR MEAEU Pee ewlueveikR FRCm "+SS8; 
rT) DA Ja" 
2 =04 PRINT 
Pileeeeime ELCCKED INDLCTANCE = “;AES(LO) ; deNRIES AT 
Pos "EZ" 
We 12 Peabo ELECTRICAL WOALITY FACTCR = "sl 
ee eee “mB CHANICAL VCUALITY PACTOR es eS 
9214 PRINT "ELECTRICAL RESONANCE = “sFl;s" HE" 
Peet ee CaONICAL RESUCMHARCE = “sF9:" HZ" 
Selo FRINT "“CYNA@MIC ELECTRCM ECHAN ICAL Cement CORFPFICTE 
Ni w= “3k 
Sele Meena t “FOTENIIAL EFFICIENCY, = “sES 
eee  PRECUERCY OF GETIC,UM EFFICIERCY = "OU: " EZ" 
S320 FRINT “bECRANICAL PCWER uTILIZALICN FACTOR” sAcS (bo) 
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LO 
LO AD cad bod Go? 
OM WO cn Bh PR 
MO G ud A) 


iM OOM 


PPINI USING $32: 
IMAGE 2/ 
RETURN 

DISP "THE END" 
END 





REM, **PICKEW** 
OPTION EASE 1 
See HeRwooncl, oc, 09 ,© ,£,E2 ,£3,ES,R8,R7,XZ,X2,X5,X6,X7,X8 
,G7,G8 ,E2,82,B5,B6 ,67,E8,k,K1,P5,P6,w 
mecHOmm ASE 2,F2,F4,F5 ,A:,84,31,32.J02,04,G,E,R,X 
EeSMIEG@R ,¥,%1,1,Y2,J,22,22,H1 ,H2 z,Sl 
memes | 2) ol 2) ,Ps[1)] ,D(360,:) @#1S[4] ,LS[30G] ,L$(20], 
eee), eli {oaiid] ,CS(5) ,GS[22] ,HS[23] 
Ll REAL S,N,N8,NS,RKC,R9,X0,X9,L,CO,LC,0,P1,H8 ,HS,P,WO,GO0 
,G9,E0,589 ,N(10) ,M(1Q0) ,FO,F1,F6,F8,FS 
he wreem SS ,E4,E6705 ,D ,D1,D2,D2,D4 
mS X6mD1,D2 ,.D2,b4=0 
MeO ,E2 .£3,E5,R6,R7,X2,X37XS=0 
17 23,A,F2,F3,F4,F5 ,B6,57,B&=C 
memos #4 ,FeeN, YY] ,I ,YZ,0 ,Z2=0 
19 K,K1,P5,P6 ,wW,00,Q@L,CS ,C3 ,E=0 
ZG CO,LO,C,P1,B,H8 ,HY ,P,iwO ,S=0 
Z1 N,N&,NS,RO,RS ,X0,X9 ,GU ,GS=0 
22 BO,EB9,H1,H2,F0,F1,F6,F8 ,F9=0 
Z4 DISP “THIS PFCGRAM IS CESIGNED FOR AN EXPERIENCED OPE 
FATCR. THE BANDWIDIH FOR CATA CCLLECT." 
BoeDiSeP “AND FREC. TC GET BLOCKED DATA WILL BE THE CECIC 
E OF THE OPERATOR. “HYDRAZ° PRCGRAM IS" 
26 DISP "DESIGNED TC CCVER 10 X BW AUTOMATICALLY. HIT ‘C 
CONT” IF READY TO FRCCEED." 
27 PAUSE 
28 CLEAR @ BEEP 
25 DISP "ENTER TYPE OF TRANSDUCER TC BE MEASURED? (°° FO 
Kk MAGNETIC CCUPLIMG CR “E” FOR ELEC.)" 
eens PoeP Lise “TC GET A CCMELETE SET’ OF DATA YCU NEE 
D MEASUREMENTS IN BCTH AIR AND WATER. " 
45 DISP "DC AIR FIRST.IN wHAT MEDIUM ARE YOU CFERATING? ( 
ENTER l° FCR AIR CR °2° FOR WATER)" 
46 INPUT M@ CLEAR & BEEP 
47 IF m=2 THEN 495 
Gea wAirk” @ GOTO 51 
Ge See WATER" 
S51 PRINIEF IS 2 @ PLOTTER IS 1 
55 DISP "SET THE CRANETZ FOR ACMITTIANCE.SET CN LOWEST SC 
ABE THAT WONT PEAK DURING SUN. ICCNT)" 
6G 2AUSE 
65 PRINT © PRINT @ PRINT 
7U PRINT "ALCMITTANCE IN ";CS 
75 G@Sum 7000 
SG IF M=2 THEN $0 
CEMRG=F6%6 GO=0 & GOTC 100 
96 FI=F6 @ ¢l=¢ 
LUG GCLEAR @ CLEAR € BEEP 


PGS Bist "SE? DCRANETZ FOR IMPECANCE-(SCALE NEEDED) -EIT C 
Cir % 


bleh 





110 PAUSE 

115 PRINT @ PRINT @ PRINT 

120 PRINT "IMPEDANCE IN ";CS 

125 GOSUB 7000 

130 IF M=2 THEN 140 

135 F8=F6 @ Q8=G € GOTC 141 

140 FO=F6 @ Q9=C 

141 CLEAR € BEEP 

142 PRINTER IS 701,76 € PRINI USING 144 

144 IMAGE 2/ 

mie Rant? “FC Y-AITR)= ";INT(FC), ,"F(Y¥-WAT)= "“;INI(Fi),,"F 
(Z-AIR)= ";INT(FS),,"F(2Z-wAT) ="; INT(P9) 

146 PRINT "C(Y-AIR)= "30, ,"G(Y-WATER)= ";C1,,"W(Z-AIR)= 
iia C(2-WATER)= "309 

147 PRINIER IS Z 

148 CLEAR @ DISP "THESE ARE THE INITIAL ESTIMATES. (HIT “* 

CONT” WHEN READY TC PRCCEEL)" 

149 PAUSE 

150 GOSUEB 250] 

152 CLEAR @ BEEP 

ieworor "TIO COLLECT ADMITTANCE DATA (FOR ELEC. COUPLING 

) ENTER “1°. ENTER “2° FOR IMPEDANCE" 

154 INPUT L2@ PRINTER IS Z 

155 IF L2=2 THEN 158 

ie ee"G"” ¢ IS="5" € SS="ADMITTANCE” ¢€ HS="CONDUCTANCE 
(MICRCMHOS)" € GS="SUSCEPTANCE (MICROMHCS)" 

57 GOTC 15S 

le eR! € «TS="X" ¢c€ SS="IMPEDANCE" © GS="REACTANCE (CH 

MS)" € HS="RESISTANCE (CHMS)"” 

159 IF L2=1 THEN 176 

160 CLEAR @ DISP "SET CN Z AND ENTER SCALE FACTOR TO COL 

MeaCT DATA.“ 

cel Geer GGG PRINI SS;" IN ";CS © PRINT “SCALE =";98;" 

OHMS" 

f62 CLEAR 

164 GOSUE 8600 

o5 ie Y=2 THEN 152 

loo IF m=2 THEN 165 

ie¢ehee=n € K3=E2 € XS=E2 © P4=E4 

hos 2G=b5 © F5=£6 € FE=El @€ GOTC 196 

heo Riek @ K2=52 G4 X7=E3 € F4=E4 

IgO X5eE5 @ FF S=EG © FS=EL © GOTC 19% 

176 CLEAR © BEEP 

lmecioe “SET GN Y & ENTER SCALE FACTCR IN MICRGMHCS TC 

CGibGEGT GATA. " 

1 7e. DRPUT SGC PRINI SS;" IN ":CS @ PRINT "SCALE =";S8;" 

MICROMHC &" 

179 GCSUE &600U 

LEO IF Y=2 THEN 152 

L161 IF M=2 THEN 185 


Ll2 





lo2Z2 G8=E @ B3=E2 © BE=E3 © FZ=E4 

163 BOo=ES © FI=E6 © FG=E1 © GCTC 196 

185 G7=E @ B2=E2 ©€ B/=E3 

166 FZ=E4 @€ B5S=E5 € FS=E6 € FI=E] 

1$S6 PRINT USING 199 

1$9 IMAGE z/ 

ZOU BEEP @ DISP "DC YOU DESIFE A LIST OCF CATIA NEAR RESON 
ANCE? (10G PCINIS) (L=YES ,Z2=NC)" 

201 INPUT Y 

20Z IF Y=2 TEEN 300 

204 IF L2=z THEN 240 

Z10 PRINT “ADMITTANCE CATA FOR ":CS;" IN MICROMHOS” € PE 
INT USING 215 

215 IMAGE 2/," FREQUENCY" ,4X ,"REAL"” ,6X,"" IMAGINARY" 

216 GOTO 265 

24C PRINT “IMPEDANCE DATA FOR ";:CS;" IN CHMS" @ PRINT US 
ING 215 

265 GCSUB 8100 

300 CLEAR @ BEEP @ DISP “DO YOU DESIRE A FPLOT CF CATA? (1 
=YES ,2=NC) ” 

305 INPUT Y@ GCLEAR € CLEAR 

S15 IP Y=2 THEN 450 

320 DISF "ENTEF: l= G/RK VS. FREU; 2= B/X VS. FREG; 3= E 
Moe G7% VS. Rs 4= END PLOTTING LOCP." 

azo INPUT Y 

320 IF Y=2 THEN 365 

Sem IF Y=3 THEN 425 

“46 IF Y=4 THEN 450 

345 GCSUE §&2z00 

356 LBGiR O @ PEN 1 @ PENUP 

mee meee (Ll) .z* (0 (300,1)-D(1,1)) ,~(E*.8) 

vere Ae RS:" vS. FRECUENCY IN “;CS 

461 GOTO 220 

fee GOLeUE 2300 

2S7 LDIK 0 « FEN 1 © FPENUP 

meoewovE Bf ],1)+.2* (0(30U,1)-D(1,1)) ,~L-.5*L 

ee eee 15:" vS. FRECUENCY IN ";CSs 

S08 GCCTC 220 

apes GCLEAR © CLEAR @ GOSUE 54u06 

421 FEN 1 

442 LDIR C € PENUP 

443 MOVE -(.5*L) ,~L-.2*L 

i feet “ INPCT ELECTRICAL ":Ss;" PLOT (";:IS;"vS."3:KS;" 
) Win § 7 Gs 

446 GCTO 220 

450 IF L2=2 THEN 645 

fo) Leet See” THe S25 

452 GGGEBAR © CLEAR @ DISP "I Am CALCULATING MCTICNAL DAT 
At 

665 Gl-E*.COOGO), (z*PI*F6) 


113 





460 
470 
475 
480 
485 
450 
500 
i) a 
Pom 

5) 24 
265 
5) 3s 
ars / 
5 ahs 
540 
542 
EAR 
343 
545 
2/9 


LO=1/((Z*PI*F6)° 2*CO) 

FOR I=1 TO 300 
Baie =b( 1 2 ).-G 
D(I,3)=C(1,3).-D(1I,1) *B/F6 
NEXT I 

GOSUB 8700 

GOTO 542 


GCLEAR @ CLEAR € CDISP "I AM CALCULATING MOTIONAL DAT 


SU=-b* .U0000T/( z*PI*F) 

FOR I=1 TO 300 

Deel, 2) =P (1,2).-G 

ee) -b vie) -D (1,1) *B/F 

NEAL I 

GOSUE 8700 

Beee @ BPISP™’ DO YOU DESIRE A LIST OF DCTICNAL DATA N 
RESONANCE? (1L=YES, 2=NO)" 

mHPUT Y 

IF Y=2 THEN 604 

PRINT “MCTIONAL ADMITTANCE CATA IN ";CS @ PRINT USIN 


G 580 


5&0 
225 
6CU 
604 
6CS 
610 
615 
616 
620 
628 
69 
6 30 
642 
645 
as 

646 
647 
645 
049 
050 
Gr 
052 
Oars 
654 
652 


IMAGE 2z/ ," FREQUENCY" ,4X ,"REAL" ,6X ,/"IMAGINARY" 
GCLEAR © CLEAR 

Gesuve 2100 

Gieer © BEEP € BEEP 

DISP "WANT A PLOT?(1=YES ,z=NC)" 

BeOr ¥2 

feeeye-2 IGEN 7/55 

PoeortipR IS 705 @ PEN l 

GOSUB 8400 

meee 10 G@ PENUP @ PEN 1 

eee, Sh) »-L-.2*b 

meee MOTICNAL ";SS;" PLOT FOR “;C$ 

GOTG@ 7/55 

CLEAR © GCLEAR @ DISP "I AM CALCULATING MOTICNAL DAT 


meee =" THEN 656 

BOE t=i TO 206 

Dies) =C(1I .2)-F 

CO=1/(2*PI*F*xX) 

LO=1/((2* PI*F6)° 2*CG) 

Bite) =b 1 ,3).-2*F1*D (1 ,1)*LG 

NipatT 1 

GCSUB 8700 

CO=AES(CO) @ LO=ABS(LO) 

BEEP @ DISP "CC YOU WANT A LIST Cf THE CATA NEAR RE 


09 


ONANCE?(1=YES,2=NO)" 


056 
057 
056 


iMPuT Y 
GOTO 670 
EU (2. rs O) 
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662 FOR I=l TO 300 

663 D(I,2)=D(I,2).-R 

664 D(I,3)=D(1I,2).-D(1I,1)*2*PI*LO 

665 NEXT I 

666 GOSUB 87CO 

667 BEEP @ DISE " DO YOU WANT A LIST CF DATA NEAR RESONA 

MEE? | L=YES ,2=NQ)" 

668 INPUT Y 

670 IF xy=Z2 THEN 706 

665 PRINT "MCTICNAL IMPEDANCE DATA IN ";CS @ PRINT USING 
666 

666 IMAGE Z/,"FREQUENCY",4x,"REAL" ,6X," IMAGINARY" 

700 GCLEAR € CLEAR 

7065 GCSUB 8106 

706 CLEAR @ BEEP @ BEEP 

FeoebDise “WANT A PLOT? (1=YES ,z=NO)" 

715 INPUT Y2 

720 IF Y2=2 THEN 755 

7Z1 PLOTTER IS 705 @ PEN 1 

725 GOSUB 8400 

737 LEIR G @ PENUP 

736 MOVE -(.5*L) ,-L-.2*L 

74O9EREEL "MOTIONAL ";SS;:" PLOT IN ";CS 

TS 5e6CLBAR € CLEAR 

756 PRINT USING 757 

joy TMAGE 3/ 

800 LISP "I AM CGING CALCULATICNS FOR xyOU. FELEASE } 

Lang," 

603 iF b&=2 THEN 1046 

$1G IF TS="M" THEN 1000 

pes [Ff b2=2 THEN 660 

640 20=E1/AES (E4-E6) 

5645 ClL=ABS(E2/(2*£I*FO) ) 

Pe Gero 83s 

660 US=E1/AES (E4~-E6) 

665 CL=AES(1/(Z*PI*FS&*EZ) ) 

665 K=1-(FU/FS)~Z 

865 K1=C)]/(ABS(CO0)+C1) 

€:0' GOSUB 9060 

92] PRINTER IS 2 i 

940 GCTC 1350 

WOOO K=)]~(FS/P0) 2 

Woes Teebz=2 TREN 1625 

1010 WU=EL/ABS(E4-E6) 

ies €CUQ 1u30 

1025 Vé6é=EL/AES(E4-E6) 

1630 GOGSUB $200 

1031 PRINTER IS 2 e GOTO 135u 

LOG Ts TS=e" BEEN 1150 

1l0@i PREP G CISE “IF tOU EAVE BATA FOR AIR, EMIER 1; ELS 


ae) 
7] 
ul 
"Ts 
bs 


es 





E o" 
1042 
1043 
L044 
1045 
1000 
1d6l 
1062 
1070 
1676 
Pale G 
1 Lao 
1130 
les § 
114 
1145 
1146 
LS 0 
Flol 
eZ 
Bied 3 
1154 
LS 
1156 


1 ie) bee= 


INPUT yY 

RAD 

TF b2e] @aeNe 1110 

IF Y=2 THEN 1662 
P6=D4* (D3-D4) / (D3*R7) 
WO=F] 
C1=E1/ABS(E4-E6) 
GCSUB 9100 | 
PRIN@ER I@ 2 @ GOTC 1250 
ie We=2 Deen 1135 

WO=F]) 

P6=D2* (D1~C2) /(0D1*G7) 
C1l=E1/ABS(E4-~E6) 
K=1-(F1/F9) ~2 
GCSUB 9106 
PRINTER IS Z @ 
RAD 

DISF “IF YCU HAVE DATA FOR AIR, ENTER 1]; 
INPUT yY 

IF L2=1 THEN 1180 

IF Y=2 THEN 1162 
3=.5*ACS((R7-R9) /D4) 

H&=SIN(2)°2 © HI9=COS(B) 72 
((1+D2/RO*HS) ~.4-( L-D3/RC*HB) * 


Gok (Ply i 2 


COTO Wir eeu 


EBSCE 2" 


.5)/((14D3/RU*HG) ~ 


.5+(1-D2/RU*H&) ~ .5) 


1PS9 
1 160 
Llo2 
1163 
1164 
1168 
1180 
lies 2 
1184 
1166 
L1lés 


F=D 4*SIN(Z*E)/ (4*89 *US) 
P6=D4* (03-D4) /(£3*R7) 
CS=EL/ABS(E4-E6) @ K=1-(FS/F1l)7Z 
Pree Be" - 6 hee kK K1l="s KL,“ as= 
GCSUB $306 
PRINTER IS 2 @ 
RAC 

TF ve2z THEN 1210 
B=.5*ACS((G7-G9)/CD2) 
H8=SIN(B)° < H9=COS(B) 2 


z @ 
=((1+C1/G0*HS) =(L=D beens ) 


© WO=FS* (2*P+(e°~24+1)7.5) 


"sod "HIO="sHS 


GOTG wl 25.0 


a 


ay (ieee 1 /GUSHe,) 


i 5 


SH L— 01/G6*H&) =) 


P= =02*SIN (2*B)/ (4*G9*q1) 
peep * (C 1-Day (C1*G7) 
WE=E1L/ABS(E4-E6) © K= 
Pen “RBe" pws, K= "3K, 
GCSUB 930t 

BEONTER 1S 2 € 
BisSe 


€ wO=TF1L*(2*P+(P “2+1)~.5) 
L-(FS/F1) ~ 
'nl=";K1, "EBs eo, Ho= 7 
Gem® We5 


ee YOUSDESIBE ANCTHm@R IN PALS MEP IUMe (TO CET 


TER SPeER TYPE CATA?) (1=YES ,2=NC) ” 


L355 
] 34 
1300 


eo! 


ImPUT Zl 

PREOTPER IS 1 

Wee 21 THEN 152 
Prew? UsinG lsoz 


116 





136Z IMAGE 3/ 

1365 DISP "DG YOU DESIRE A RUN IN ANCTEER MECDIUM?(1=YES, 
Z=NO ) : 

i700 INPUT Z1 

1375 IF Z1l=1 THEN 45 

1380 DISP "JUST FOR THE RECCRL, INPUT WATER TEMP, AIR TE 
MP, TRANSDUCER SER NO, MCDEL WC, ," 

1361 CISP "AND TYFE (E OR m)" 

1385 CISP "INEFUT °O° IF INFO IS UNKNOWN" 

1390 INPUT w,A,S,N,LS 

1391 PRINTER IS 701,76 

1400 PRINT "WATER TEMP="swWw,,"AIR TEMP=";A,,"SER. NG.="3S 
MeemopDEL NO.="sN,, TYPE ";Ls 

1414 GOTO 39968 

2501 KEM *SHUNT* 

2502 CLEAR @ CISP “INPUT A PERCENIAGE CF RESCNANT FREC. 
TO OSE TO GET SHUNT (BLOCKED) VALUES." 

mews PISP "INPUT A VALUE FROM O Tc 1.™ 

2504 INPUT Bl 

2513 CLEAR € BEEF @ DISP "WE ARE FINDING SHUNT VALUES FO 
Peay CR R/X." 

moms AS="FR" € BS="HZ" € Sl=l1 

es br TS="M" THEN 2525 

Pee IF M=2 THEN 2522 

Geet FerO*Bil @ GCTC 25:25 

2522 F=F J*B1 © GOTO 25:5 

Qe765 Ir S=2 THEN 2527 

2526 F=F8-B1]*F& € GOTC 2535 

2527 F=FO-B1*F9 

2535 DS=VALS tF.) 

fee emmeoT 717 ;AS,DS ,cS$ 

2536 WAIT 1000 

Poa0 DIS “SET DRANETZ FREGV. SCALE TC COVER FREY. ON SYN 
THESIZER.ZERC METERS.SET ON FS.(CONT)" 

2541 FAUSE 

Meee DISe “HERE we GET THE NCRMALIZATION FACICES." 

2oes CUIEUT 7UY ;"VTL" 

25468 GCSUB 8564S 

Ze G8, Rk ,X=0 

eet Awa" Pe” © ES="8Z" e& DS=VALS(E) 

mee) Cemeat 717 ;AS,CS,ES 

2561] CLEAR G CIS® "SET CRANETZ CN Y¥,SET SCALE,SEI CN NCR 
M FOR FILTER + PHASE,ELUG IN TRANSDUCER." 

2562 BEEP © DISP "ENTER SCALE FACTOR IN mICRCELKCS. SAME S 
@eee AS FGRe CATA. (WE GET SHUNT G/B)" 

2504 INPUl S86 CLEAR € DIS& "I Am WORKING IC GET SEUNT v 
ALUES" ¢€ BEE 

Coes fee lode TC. LU 

2506 Gerecr 717 :AS,0S,BS 

2500 Were LCOOU 


La 





2506 
AOD 
25 10 
Zoi 1 
Ze) 2 
25/3 
2574 
i od pe 
Zo 16 
Zo re 


SUREU1 709 ;"AeGa" 

Peek FOS ; (I) 

G=G+m(L) 

CUTPUT 7uyS ;"AC4" 

ENGR YOS =; N(1I) 

B=65+N(L) 

NeXT I 

G=G/(I-1) © E=B/(I-4J) 

G=G*S8/N38 © E=B*S¢E/NG © EEEP 

DUSE Set etERemet4 ON 2;SET SCALE FCR MAA RESPCNSE.L-. 


Gye TRANS. INPUT. ENTER SCALE FACIOR" 


Zong 


INPUT S&& CLEAR @ DISP “I Ad wOFKIWNG TC GET SEUNT V 


ALUES" 


ad>S6 
Zao 
2 Siew 
256 5 
2584 
25°85 
2286 
2587 
258i 
2565 
2556 
2551 
Zoo 
25968 
2596 
Z6CC 
26) 
ae@iz 
aot : 
ZieG © 
(Gee, 
zo0G6 
zo1l0 
Fogo i AM 
28.2 
Zibel. 3 
2615 
26 2U 
4) € 
2030 
265 


FOr I=] 76 W 

CMeruUT 7187 BAS .DS,BS 

WAIT lLOGC 

GETPLT 709 :"AC:" 

ENTER 76S ; M(I) 

R=R+M(L) 

@ETPET 709 ;"ACc4" 

ENTER 7uS ; N(I) 

mane L) +X 

Nex I 

R=k/(I-l1) @ X=X/(I-}2) 

R=R*S&/N8 © X=K*SE/NG 

be TS="m" THEN 2610 

IF M=l THEN 2600 

Beemerc AS=X € CS=G € ES=B @ GCTO 26ul 

GO=G € BUFB & RUFR & XC=X 

PRINT "SHUNT VALUES" 

PRINT USING 2603 

IMAGE 1/ 

Pa Gee GO, ,"fb0="-BC, , RO="skuU, ,"XC=";al0,,"GS=" 
"EB9Q="6S,, ,"RS="sRS,,"RGS"EX9 

PRINT € GCTC 26:0 

IF Sl=2 THEN 26Zu 

Jl=G ¢ JZ=E € J3=R © J4=x 
LEee2 PREN 2615 
F=FE+E1*FE& 6 Sl=2 € GOTC Zz 
F=FS+B1*FSG @ Sl=Z © GOTC 2 
G=.5* (GtJl) © B=.5&* (5432) € 
G@PO 2595 

GCLEAR @ CLEAR © BEEF 

BiSe “"BNRIBR 1° If @ML IS wELL: °2° IF YOU NEED A R 


Bool.” 


Z04U 
2645 
2650 
7000 
1 0@el 


Tet = Y 

Te @=2 THEK 2501 
RETURN 

Ria eet -_ ** 
GCLEAP € CLEAR 


eS 





moO > ELS P 
CE UNKNCWN USE 10000,20000C. 


MOVIE R GOWER, UPPER FREC. FOR SWEEP.IF RESONAN 


(ce ies) 


SoD aweer 4,,F 2 

7011 DISP “ENTER &MS VOLTAGE NEEDED. (3000 MV FOR LCW FRE 
¢. AS LOW AS 2COC MV FOR HIGH)” 

7OLZ INPUT Ate ALS=VALS (A) 


O20 


7025 AS="AM" 
meeo OUTPUT 717 


7040 


CLEAR @ BEEP 
@ BS="MR" 
7h @Als ,BS 


GUTPET 709 -YAC3VT3" 


eas F3=CEBL( (F2-F4)/30C) 


706C CLEAR @ 


Disey i AM WERKING TC GET THE SPECTRUM DATA 


FOR YOU,THEN WILL SECW & MAKE A PLOT" 


7065 
7070 
e075 
7062 
706>S 
7TUGU 
1OS'S 
71G0 
BEL S 
be LO 
ps 
sl 
G15 
7130 
7136 
7140 
7145 
role 
Ties 
G15 
Tie 
7161 
7 G2 
1 ie 3 
Plc) 


FCR I=1 TC 200 
Dil,L_L)=F4#I*F: 
AS="Hz" a BS="FR" 
DS=VALS(Ci(I,1)) 
Creat 7l7 ;2S,DS$ ,A'$ 
GEIpGr 709 ;"AC3VT3" 
wAIT 100 
PRILER /0%9 ; 
REAT I 
F5=F4-.1* (F2Z-F4) @ FE=F2+.1* (F2-F 4) 
Pom rezhe 1] * (F 2-P4) 

PLOTTER IS 1 ©€ GCLEAR € CLEAR 

Semcr F5,F6,-.1,1.2 
berets U,Z00C ,F 4 ,Fr2 
fomes Fay.) ,-.1,le2 

POR I=! TO :0v 

PE NUP 

oom 6 (1,1) ,0(1,2) 

NEXT I 

GRAPH @« COPY 

DISP "NE&D ANCTHER RUN? 
Tre ul ey 

Pel THN 00S 

CLEAR @ GCLEAR © BEEF 
Meee Ghibhe PECISICN POINT FCR AMPFLITUCE 


El es) 


(1=YES ,z=NC)" 


(Cm Ca ire.) 


meee o THAN WEHE MAX DISPLAYEL) .“ 


racy 
7166 
7s | 
70 
1135 
7200 
Pee 
F2Z1C 
7eis 
7220 
12a 


TMeLT S¢ CbBAR & SEEF 

Peer “AMPLITOBE IN vOLiIs";” 
Bell 

POR I=1 TC :0U 

Metis Zz) <S PEN /2l 

Pet MSING f2u5 ; D(I,z) ,o(1,1) 

meee, |x eEeEEELCE , LUX ,CEDDLLC .CC 
NEAT I 
PRI T 

IMAGE 

CLEAR 


Pee uEhC Y” 


USING 72zU 
27 
we BEEF 


ee: 





7226 
WISE 
tee 7] 
7228 
tee 5 
7236 
7240 
7241 
1242 
1243 
1245 
i255 
7260 
T2655 
4270 
Hay 
285 


BISe "IF YOU ARE REACY TC CONTINUE ENIER “1: CTHER 
EN@BR “2°,” 

INPUT Y 

IF Y=2 THEN 71L6C 

DISP “WHAT IS CENTER FREQ, HALFWIDIH TO CONSIDER?" 
INPUT F,N@ CLEAR € BEEP 

DISP "I AM WORKING TO GET GOOD FREt AND © CATA" 

BOF gl= 1.010. 2a6 

D(I,1)=E-N+I*N/150 

AS ="Ha" G Bs =F R" 

CS=VALS(C(I,1)) 

OULFUT 717 ;5S,DS,AS 

OWREUT” 7008 >“AC3VT3" 

wAIT 100 
ENTER 70S ; 
NEXI I 
CLEAR € GCLEAR @ 


Duel , 2) 


DISP “I AM. FINDING THE ABSOLUTE MA 


X AND FREQ UPPER AND LOWER" 


7250 
TASS 
7300 
pre G8 
fabs 
25 
1340 
7345 
7 Sys 
13 

726 
izoe 
a 70 
i Skee 
ne. 6 
7400 
7405 
7425 
7430 
7435 
14406 
1445 
7450 
1465 
1400 
7470 
7475 
7480 
7490 
1495 
7S 
F San 


BL,64=C @ H,d1,42,H>,H4=1 


BZ ,£3=50 

FOR L=2 TO 30C 
Meee, 2) <b Gbe2) THEN 7:40 
eee I ,2)=CD(H,2) THEN 7225 
A6=D(I,2) € F6=D(I,1) @ H=I 
NexX@ I 

A7=A6/SCR (2) 

PO L=1 TO F 

IF Av=D(I,2) TEEN 7/405 

Maer <i (I ,.z) THEN 7385 

Wee Pe IepZ2) <<E J] THEN 7425 
Bl=D(I,2) © H1l=I @ GCTC 17425 
Wee ,2)>E2 THEN 7406 
B2=C(1I,2) © Hz=I 

GEGO F425 

El,E2=C(I,zZ) @ H1,HZ=I @ FV=CBD(H2,1) € GCTO 7444u 
NEw I 

X=(A7-E1)/(B2-E1) 


fees (W(ti2,1).-C(HL,1))+0(A1,1) 
PORwI=H 10 20C 
BE AwSE(I pe) THEN 
Wee >O( ig) THEN 
Rieeietl fz) >BS THEN 
Pe=e(e ,2) ©€ H3=I 
GOTO 7/55 
IF C(I,2) <=54 THEN 
B4=0(I,2) © H4=I 
GGmG /515 
B3,E4=D(1I,2) &@ 
e=(H:, 1) 
GOTC 7530 


Pee 5 
7475 
7470 


7490 


H:,H4=I 


120 








7 Syh5 
720 
W255 
i 30 
4535 
7536 
hee 38 


NEXT I 

X= (A7-B4) /(E3-B4) 

L5=- (X* (D(H4 ,1).-D(H2,1)))+D (44,1) 
Q=F6/(L5-F7) 

PRINT "CENTER FREQ IS 
PRINT “Ogis ~;0 a 
DISP “IF ¥CU ARE READY TO PROCEED, ENTER (1° 


SEG 


Pew e 


RUN FOR BETTER VALUES, ENTER °2°." 


We 39 
7540 
7545 
8100 
Glul 
8102 
5103 
61U5 
8106 
Solus 
5108 
6110 
6200 
BZ el. 
S202 
6203 
6205 
& 269 
&210C 
SZ 
ec eZ 
B25 
dzlo 
eo 2ay/ 
S Zales 
ozZzl 


Pu Y 
IF Y=2 
RETURN 
RBM “BATA LIST** 
PRONTEP IS 2 

FCR I=$9 TO 199 
PRE US@NG o1C5 ; 


THEN 


— ~~ = 
2s 


D{I,1) ,D(1I,z) ,D(T,3) 


PMAGE PELCDD.O,2x% ,D.OBDE ,2xX ,D.DCCE 
Neal I 

PRINT USING 8106 

IMAGE 3/ 

RETURN 

Rem *<PLOT RE** 


GCLEAR @ CLEAR 

beget, Lp) el 5 *(D{ 300e1)-D(1,1)) 

fee 300,1)+.1*(0{300,1).-0(1,1)) 

meotine IS 705 € PENe ! 

Seer He, HO .—(.8*E) , ke. 2S*E 

crc OU, ppl wy 10, bP (i,1) ,D(:00,1) 
meee (l,l) ,E/5,-(. 6°85) ,E+.2*k 

BEN UP 

he L=l1 TC :00 

Peers b{r,)) ,D(1I,2) 

MEXT I 

PENUP @ DEG € LDOIR C,SIN(SU) 

Perel TO Ueeuy yt) STEP (0(:00,1)-C€(1,1))7/10 


Ge PENGP 


tee Z 
Sue: 
b224 
6226 
8227 
6225 
cueweiO 
Gacue 
6224 
& Ze 
5230 
A227 
E24 
Guiza 
oz4: 


Pevwe Li,-—(.)e@*E5) 

LAceEL INT(L1) 

Neer Li 

LOIR G @ PENUP 

eee (ete 25 1D 5 C0 pl jee (1,1)) ,-(.7*E) 
LABEL "FREGCENCY (H2)”" 

BENUP € PEN 1 

LOIR © 

Meme t——(.8*6) TO E+,z*&k STEP E/S5 & 
eee (le —.09* (D(200,1).-D(1,1)) 1 
LABEL INT@L1) 

NEXT Ll 

Lower UOpSIN( 9Q) 

eee ee) oe ~*(DKSCL,1L)-0(1,1)),.1%*E 
LAcEL ES 


RENO 


bad 





8250 RETURN 

S200 REM **PLOT IM** 

6301 GCLEAR € CLEAR 

mes heeD(1,1).-. 15* (0 (300,1)-D(1,1)) 

es04 H9=p(300,1)+.1* (0 (300,L)-0(1,1)) 

8305 L=MAX(ABS(E5) ,ABS(E3) ) 

8306 PLOTTER IS 705 @ PEN 1 

me sewer He, tS{7-L—.5*L ,Lt+. 25*L 

mes Peeees 0,70 (500,1)-D(1,1))/10,0(1,1) ,D(.200,1) 

eee Gee S bby /> .-L-.2*L,L+.2*L 

Gei5 PENUP 

els FOR I=l1 TO 20C 

ees PLOT eb(1I,1),0(1,3) 

@530 NEXT I 
331 PENUP @ DEG @ LDIF 0,SIN(90) 

eeeeeeern bee€(1,1) TO D(200,1) STEP (D(20C,1)-D{1l,1))/16 
@ PENUP 

mee MOVE L1,@L-.2*L 

656 BABEL INT(L1) 

bee NEKT L1 

8340 LDIR O @ PENUP 

cee me Vien (1,1) +.2% (D( 36U,1)-D(1,1)) ,-L-.4*L 

Bee, BABEL “FREUUENCY (H2Z)” 

8345 PENUP @ PEN 1 @ LDIR G 

Sem fobeeyl=~L—.2*L TO Lh.z*L STEP L/5 ¢ PENUP 

pees HOV D(l,1)-.09* (D(200,1)D(1,1)) ,L1 

e256 BABEL INT(LL) 

S357 MBXT Ll 

6260 PENUP @ PEN 1 @ LDIR C,SIN(SC) 

Gee) WOVERD (1, Wrewl* (D(260,1)-D(1,1)) ,.~(L*.5) 
8268 LABEL G$ 

6280 RETURN 

oeeQ BEM **C IRCLES** 

6401 GCLEAR € CLEAR 

8402 LI=MAX(AES(E3) ,AES(ES) ) 

6403 L=MAX (ABS(E£) ,L1L) 

8404 PLCTTER IS 705 @ PEN 1 

eee eee, Tee 1, ee. 20* (Lt. 1*L) ,-L-.2*L,Lh.LE4h 

oe AAaIS 0 ,L/5 ,-L-.1*L,L+. 1*L 

Sams Yiwkts One S ,-L-sl*L , Le, 1*L 

840 SENUP &© PEN 1 

Stil FOR I= TO 200 

ORiz SHOT PI ,2) ,CtI,:) 

6413 NEXT I 

6414 PENUP 

Geis Wetihe 0 © PEN 1 © FPENUP 

Gm 1) Serer ee (L*.5) .-L-. 1b 

S4l6 LABEL HS 

S420 PHNGP GePEN 1 € CEG 

6425 GbE. > ,SIN( 9) 
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8426 
8427 
6428 
8429 
8435 
8426 
8437 
8438 
8439 
8445 
3446 
5448 
6456 
8549 
C50 
Soe 
81515 7 
8558 
38559 
5560 
§565 
5566 
8567 
6568 
8569 
6570 
857z 
8573 
S575 
36 00 
S601 
S665 
56 06 
5607 
5608 
560 10U 
E6ll 
S612 
G6 le 
6615 


oo 16 
6625 
%62S 
66 30 
66 32 
6 Se: 
8634 
SGrere 
E636 


Poole TO L+,1*L STEP L/S € PENUP 


MCVE Ll 


NEXT Ll 


= 
’ 
BABEL INT(L1L) 


LOIR 0 @ PEN 1 @ PENUP 


BOReE=~-L~.i*L TO L+.1*L STEP L/5 @€ PENUP 
Revi ~(.800°L) ,L 1 


LABEL INT(L1) 


rose LL 


EDIR C ,SNIGO®) 
MOVE ~(.95*L) ,-(.3*L) 


LABEL G$ 


RETURN 
REM 
N8 ,N9=0 


FOR I=l1 TC 10 
WAIT 500 
709 


OUTPUT 


*SNGRMS * 


PNTER® 70:9 ; 
N8=N8+N(L) 


GUPPOT 7/09 
mos 3 


ENTER 


N S=NS+M(L) 


NEAT [I 


N8=N8/(I-1) 
N9=~(N9/(I-1L)) 
PRINT USING 8573 


IPAIGE 3/ 


RETUKN 
RED. 
CLEAR @ 
IF Lz=1 
IF Lz=1 
IF Lz=2 
If L2=2 
F6=F1 @ 
Fo=FO & 
F6E=FE 
FO=Fo ¢ 
DISP 


BEEF 
AND 
AND 
AND 
AND 
2 =ul 
Ceu0 
Q=UE 
V=L9 


oP EOE 
ELECT CATA. (ENIER 


WPT we ChiAK ¢ CISP 


— 


od 


ous 


ea 


> 


< 


: NG 4" 
NT) 


. mpxe 4" 
v (I) 


a DOES * * 


S010 
coll 
solz 
Ties Oa: 
@ GOTCG 8615 
€ GOTO 66015 
€ GOTO gols 


1 i a> 
a Se 
PL: 
~m 
2. 


Seeecl Te 
meer wl DTH)” 
eee wewtneeanrivG THE CATIA.” 


Bac taecr INTEREST TO CO 


FCR I=] TC 300 

Dol, | paRGeN+I *Wy 150 
q bS="hz" 
CDS=VALS(C(I,1)) 


AS=" FR" 
COPTPeT 


OUTPul 
ENTER 


7 lg 
WAIT 250 

709 
1CSe: 


SAS.) Sue 


MeACSVTs" 
ho 


ize 








8637 D(1,2) =H&*S8/N8 

8638 OUTPUT 709 ;"AC4vT3" 

6863S ENTER 70 ; H9 

8640 D(1I,3) =H9*S8/N9 

€641 NEXT I 

$68Z CLEAR @ DISP "I AM FINDING MIN/MAX VALUES & ASSCC. 
FREQS" 

6663 GCSUE 8700 

8664 IF L2=2 THEN 8687 

Peewee RING "GMeXk—- 9°, , FGMX=";E£1,,"BGMX=";:EZ,," EMX=" 353, 
PereMxX="-Ea, ,"BMI=":E5,," FBML="3;56 

8666 GCTC &6$7 

Seg7 PRINT “RMAK="-zE, ,"FRMM="-°E1,,"XRMX="3E2,,"XMX="3E3, 
Pee X="2E4, , XMI=":ES, ," FRM1L="3E6 

8697 DISP "IF ALL IS wELL, ENTER “1°, ENTER °Z° 10 RETAK 
BATA.” 

€698 INPUT Y 

6699 RETURN 

8700 REM **MAXMIN** 

8703 H,H1,HZ=50 

86705 E=D(50,2) @ E1,E4,E6=D(50,1) @ £2,E3 ,E5=£15C, 3) 
8706 FOR I=51 TC 250 

S710 IF D(I,2)<CDtH,2) THEN 6725 

begel Ir D(1,2)=CD(H,2) THEN 8720 

pee, BP (1,2) € Bl=D(1,1]) @ B2=L11 ,3) © H=I 

725 PPPD(1,3)<Dth1,3) TREN 6740 

@ioo PP? 0C(1I,3)=D(Aal,3) TREN" S735 

eye ES=D(1,3) © E4=D(1I,1) € H1lsI 

8740 If D(1I,3)>=C(HZ,2) THEN 8751 

6mes t@=1 6 E5=L(I,3) @ E6=2(I,1) 

8751 NEXT I 

$760 J1=D(H,2) € JZ=(D(H+1,2)-D(H-1,2))/2 © Ji=(D(H+t1,2) 
+0 (H-1,2).-Z*JL)/2 

C752 F6=-(02/(2*J2) ) 

8765 A=J1]+02+Fotd 2*F6 72 

8776 F6=D(H,1)+F6* (D(d,1)-0(H-1,1)) 

775 El=F6 € E=A 

076% D=ABS(E3-ES) 

6769 IF M=2 THEN &7¢2 

3790 IF L2=1 THEN 3792 

&791 D3=D @ GCTC 6756 

67a DIESL € GeTC 67°96 

elie) IP P2=1 THEN §7S5 

8794 D4=0D @€ GCTC 8756 

6 79S» D@=C 

oo ee Pe" FD], ,“Dae"-rz, "DH" 202, ,"C4="204 

8799 RETURN 

SGUU REM **CALC~A** 

SYUUL PRINTER IS 701,76 

YUU2 PRINT @ PRIN 
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$003 PRINT 
G$OU4 PRINT 
CO11 PRINT 
°F: ee 
C012 PRINT 
$013 PRINT 
$014 PRINT 
S015 PRINT 
SGlo PRINT 
NT = "sk 
$017 PRINT 
GSOZ1 FRINT 
S$G21 PRINT 
$032 IMAGE 
$C50 
$100 
Gi01 
Sh 2 EPRINT 
%i02 PRINT 
“ DATA" 
9104 ERINT 
Sill PRINT 
a oe EZ," 
y112 PRINT 
Shiz PRINT 
9114 ERINT 
$115 FRINT 
9116 PRINT 
Tess "nk 
$119 ERINI 


$120 FPRINT 
S22] PRENT 
ylZz ERINI 
$122 ERIN 
91:3 JT@AGE 


$150 RETURN 
**CALC-A iit * 
9201 PRINIER IS 


G$Z20U rob, 


S2u2 PRINT 
2208 PRIM 
S264 ERIN 
C2, PRINT 
-Pige ae 

Y¥Z1lz BRIN 
S212 PRN! 
S214 ERINT 
S215 FROM 
Selo ERENT 


RETURN 
RaM **CALC-w** 
PRINTER IS /01,76 


“VALUES MEASURED IN AIR FRCM " 


Too DATA 


"BLOCKED CAPACITANCE= “;A8S(CO);" FARADS AT " 


VEG@mCERICAL GUALITY FACTOR = ";(C0 
"MECHANICAL QUALITY FACTOR = ";VU6& 
"Eee teeCAL RESCNANCE =";F0;" HZ" 
“MECHANICAL RESONANCE = “;F8&;" HZ" 


"DYNAMIC ELECTROMECHANICAL COUPLING COEFFICIE 


nome ie COUPLING GEEFFICIENT= * 
“BEGGre> RESISTANRGBE=";R0; “ObmMsS"™ 
UsmtnG 2032 

2/ 


sKL 


@ PRINT 

“VALUES FOR MEASUREMENTS IN WATER FRCM ";SS; 
PmmeeneD CAPACI TALGE = “;AES(CU);" FARADS AT 
Umibe CIRICAL (CURE IY BACTOR = "3U] 

"MECHANICAL VUALITY FACTOR = “;C¢ 

mee CTRICAL RESONANCE = “;F1;" HZ" 

ipGme NICAL RESGGNANCE = “;F9;" pa" 


"EYNAMWIC ELECTRCMECHANICAL CCUPLING COEFFICIE 


"FREQUENCY CF CFTIMOM EFFICIENCY = ";nwl;" Ha" 


"MECHANICAL POWER UTILIZATICN FACTCER";AES (6) 


Oo’ 


SlewiC COUPLING CCEPrICIENT=";kK1 
gECCKED RESISTANCE =";h9;"OHMS" 
USING 9133 

af 


FOL. 76 
vw FRINT 
"VALUES MEASURED IN AIR 


FRED: USS: peer 


"ELCCKED INDUCTANCE= ";AES(LC);" EENRIES AT '" 


“ie CURIA, 


CoAT TY IP ANCTCR = "swv 
PIPChOMiCAL CUALITY FAGTOR = ";\& 
ELECTRICAL RESCNANCE =";FO;:" HZ" 
"MECHANICAL RESCNANCE = ";:Fo:" GZ" 


So emiC rieCTRCOMECHANICSL COUPLING COLFEICIE 


ls 





ni = 8K 

S217 PRINT "BLOCKED RESISTANCE= ";K 

B25) PRET USING 92 32 

S222 IMAGE 2/ 

9250 RETURN 

C300 REM **CALC-W/M** 

9301 PRINTER IS 701, /6 

9302 PRINT @ PRINT 

9303 PRINT "VALUES FOR MEASUREMENTS IN wATER FRCH ":SS; 
iT) pata” 

$204 PRIN‘ 

Peewee kit se beereD INDUCEANGE = “;AES(LU);" HENRIES AT 
Per6 "AZ." 

ez ERENT “BEECTERICAL WUABETY FACTOR = ";:¢] 

Poe FR PT ope cpeert CAL CUABRITITY FACTCR = "scCs¢ 

GOsi4 FRING “ELECTRICAL RESCNANCE = ";F1;:" sz" 

$215 PRINT "MECHANICAL RESCNANCE = "sFS:" Hz" 

Stl6 PRINT “DYNAMIC ELECTRCMECHANICAL CCUPLING COEPFICIE 
mr = “eK 

S3L18 PRINT “PCTENTIAL EFFICIENCY = ";F&5 

PelS ERINT “FREQUENCY CF C&ETIMUM EFFICIENCY = “;wO0;" Ha" 
¥93Z0 PRINT “MECHANICAL PCwER UTILIZATICN FACIOCR" ;AES (P6) 
9222 PRINT USING 932: 

S22: WRAGE :/ 

$350 RETURN 

$9G6s DISP "THE END" 

6$9SS ENC 
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